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

Вниз

PopupMenu - правой кнопкой   Найти похожие ветки 

 
BMouradov   (2005-09-22 18:20) [0]

Можно ли сделать так, чтобы в Popup меню можно было выбирать пункты не только левой, но и правой кнопкой мыши? По-умолчанию OnItem происходит только от левой.


 
ECM ©   (2005-09-22 18:28) [1]

можно


 
BMouradov   (2005-09-22 19:01) [2]

Замечательно! А как?


 
ECM ©   (2005-09-23 10:42) [3]

Это уже второй вопрос...:)
Например так:

var
 IsPopup: Boolean = FALSE;

function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
 Result := FALSE;
 if (Msg.message = WM_CONTEXTMENU) then begin
   if IsPopup then Form.Postmsg(WM_KEYDOWN,VK_RETURN,0)
   else IsPopup := TRUE;
 end else if Msg.message = WM_COMMAND then
   IsPopup := FALSE;
end;


 
Vladimir Kladov   (2005-09-23 17:43) [4]

вообще-то достаточно у popupmenu установить Flags := Flags or TPM_RIGHTBUTTON, см. комментарии в исходнике!


 
BMouradov   (2005-09-23 19:22) [5]

Спасибо большое!



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

Форум: "KOL";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.011 c
2-1147372407
ribbon
2006-05-11 22:33
2006.05.28
Проект, наподобие IBExpert


15-1146391816
Mozart
2006-04-30 14:10
2006.05.28
купил Samsung E820


15-1146299596
CKaHK
2006-04-29 12:33
2006.05.28
socks 5 server


6-1138425550
Spose
2006-01-28 08:19
2006.05.28
Скачать файл с интернета


6-1138313278
GanibalLector
2006-01-27 01:07
2006.05.28
RAW socket





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