PageControl&PopupMenu. Как узнать какой Tabsheet

← →
SergP © (2004-06-01 00:54) [0]

Например при выборе пункта меню нужно убить TabSheet, по которому кликали правой кнопкой для вызова этого меню. Как это сделать.

Нужный TabSheet может и не быть активным. По координатам курсора что-ли смотреть? Или может есть нормальный способ? А то вот понадобилось, а нигде найти не могу....

← →
KilkennyCat © (2004-06-01 01:01) [1]

Запомните его, когда он был активным.

← →
default © (2004-06-01 01:12) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
TTabSheet(PageControl1.Tag).Free
end;

procedure TForm1.PageControl1ContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
begin
PageControl1.Tag :=
Integer(PageControl1.Pages[PageControl1.IndexOfTabAt(MousePos.X, MousePos.Y)])
end;
пойдёт?

← →
SergP © (2004-06-01 01:13) [3]

> Запомните его, когда он был активным.

Запомнить что? К тому же возможен вариант, что он мог никогда не быть активным с рождения и до смерти...

Например у меня в данный моменнт другой табшит активный, но мне нужен тот, кликом на который открылось попапменю..

PageControl&amp;PopupMenu. Как узнать какой Tabsheet Найти похожие ветки

PageControl&PopupMenu. Как узнать какой Tabsheet Найти похожие ветки