Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.06.13;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.036 c
1-1085932583
TUser
2004-05-30 19:56
2004.06.13
Насколько правиьны эти утверждения


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


1-1086152745
AlexFe
2004-06-02 09:05
2004.06.13
Работа с MS Word


4-1084264745
Jester
2004-05-11 12:39
2004.06.13
Смена языка в проге...


1-1085824554
Oleg
2004-05-29 13:55
2004.06.13
Простой алгоритм шифрования





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский