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

Вниз

Клик правой кнопко мыши сделать левым   Найти похожие ветки 

 
LinaIns   (2004-11-22 21:55) [0]

В программе используется компонент TTabControl. Щелчок левой клавиши мыши выбирает закладки на нём, щелчок правой кнопкой мыши по ним же вызывает специальное контекстное меню.

Нужно, чтобы щелчок правой кнопкой мыши давал такой же эффект, как щелчок левой, т.е. выбиралась закладка. Как этого можно достичь? Посылать системе сообщение о том, что нажата левая кнопка?


 
Yanis ©   (2004-11-22 22:38) [1]

Лучше вообще использовать TPageControl. А по теме:


procedure TForm1.TabControl1ContextPopup(Sender: TObject; MousePos: TPoint;
 var Handled: Boolean);
begin
 TabControl1.TabIndex := TabControl1.IndexOfTabAt(MousePos.X,MousePOs.Y);
end;


 
LinaIns   (2004-11-23 08:13) [2]

PageControl не подходил по условию задачи - там в редактор, расположенный на контроле с закладками, нужно было загружать текст в зависимости от выбранной закладки.

За пример большое спасибо — все работает. :)



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

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

Наверх




Память: 0.44 MB
Время: 0.038 c
14-1100704225
Pavel_levaP
2004-11-17 18:10
2004.12.05
разбилась матрица на ноутбуке


14-1100684389
nookie84
2004-11-17 12:39
2004.12.05
ссылки


6-1095750934
Ваятель
2004-09-21 11:15
2004.12.05
WinInet - соединение с и-нетом из под прокси


11-1083860707
Delphi5.01
2004-05-06 20:25
2004.12.05
Как преобразовать Self в pCotrol :-)


1-1100674273
Серж_Евдокимов
2004-11-17 09:51
2004.12.05
Программно прокрутить HorzScrollBar в ShellTreeView..





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский