Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c