Текущий архив: 2006.09.10;
Скачать: CL | DM;
Вниз
Вызвать 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 вся ветка
Текущий архив: 2006.09.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.042 c
