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

Вниз

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

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

Наверх





Память: 0.45 MB
Время: 0.035 c
11-1083862844
Delphi5.01
2004-05-06 21:00
2004.12.05
Вот такой баг был замечен мной и моим другом.


4-1098600632
Глеб
2004-10-24 10:50
2004.12.05
Завершение программы, которая ранее была запущена


14-1100534104
KilkennyCat
2004-11-15 18:55
2004.12.05
Завтра в Петербургском СКК начинают работать несколько выставок.


11-1073945866
Юрий Ж.
2004-01-13 01:17
2004.12.05
HotKeyEdit?


6-1096292616
digger
2004-09-27 17:43
2004.12.05
FTP доступ через прокси





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