Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

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]


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


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

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


 
SergP ©   (2004-06-01 01:16) [4]


>  [2] default ©   (01.06.04 01:12)


Вот это пойдет...
Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
1-1085994689
nitro
2004-05-31 13:11
2004.06.13
Как скопировать или "перебросить" данные из Image1 в Image2 ?


1-1086094071
LittleGirly
2004-06-01 16:47
2004.06.13
Создание диаграммы в Excel-e


6-1082816945
Yegorchic
2004-04-24 18:29
2004.06.13
Доступ к файлам по FTP...


1-1086065598
Yanis
2004-06-01 08:53
2004.06.13
StringGrid


14-1085504971
Jprs154
2004-05-25 21:09
2004.06.13
Почему в новых домах плохо продаются последние и первые этажи?