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

Вниз

Вызвать MouseDblClick раньше MouseUp   Найти похожие ветки 

 
Белый Орёл   (2006-05-14 13:24) [0]

Здравствуйте! У меня следующая задача. На одинарный щелчок и на двойной по иконке программы в трее происходят разные события, но MouseDown, понятно, вызывается раньше, чем doubleclick. Как можно сделать примерно так: проходит щелчок и включается ожидание второго щелчка; если его нет, то выполняется MouseDown, иначе - doubleclick.

procedure TForm.IconMouse(var Msg: TMessage);
var p: TPoint;
begin
GetCursorPos(p);
case Msg.LParam of
 WM_LBUTTONUP:
  ....
 WM_LBUTTONDBLCLK:
  ....
end;
end;


Это код, где происходит обработка щелчков мыши (сама обработка в ....).


 
GrayFace ©   (2006-05-15 10:48) [1]

А зачем так извращаться? ИМХО, гланды хотите вырывать не с той стороны.


 
Игорь Шевченко ©   (2006-05-15 11:01) [2]

http://road.uww.edu/road/siemannb/delphi/TrayIcon.pas ?



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

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

Наверх




Память: 0.45 MB
Время: 0.045 c
1-1154090907
Calibr
2006-07-28 16:48
2006.09.10
CorelDRAW


15-1155477602
AlexanderMS
2006-08-13 18:00
2006.09.10
Вопрос по *.BAT файлам.


15-1156087524
PSPF2003
2006-08-20 19:25
2006.09.10
Улыбнитесь :)))


15-1155573637
qqqqqqq
2006-08-14 20:40
2006.09.10
Кто разбирается в ОС (Unix,Linux)? Какой Linux посоветуете?


3-1152082799
ttt_111
2006-07-05 10:59
2006.09.10
Некорректное завершение программы.





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