Главная страница
    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.041 c
14-1100382291
Fin
2004-11-14 00:44
2004.12.05
Создание серьезных игр.


14-1100595933
Igorek
2004-11-16 12:05
2004.12.05
БД - редактирование записи как в Object Inspectore


1-1100958768
Larisa
2004-11-20 16:52
2004.12.05
Установила Delphi 7 при попытке откомпилировать старый


1-1100690198
ALEKCEY
2004-11-17 14:16
2004.12.05
Обработка математического выражиния


14-1100756936
gn
2004-11-18 08:48
2004.12.05
Билл Гейтс: пароль мертв





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