| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отличие одинарного клика от двойного в трее

Turbid ©   (2006-03-30 01:58:00) 

У меня имеется следующий код, отлавливающий сообщения на иконку в трее:

procedure TMainForm.WM_ICON(var Msg: TMessage);
begin
 case Msg.LParam of
   WM_LBUTTONDOWN: {Действие №1};
   WM_LBUTTONDBLCLK: {Действие №2};
 end;
end;

Проблемма в том, что Действие №1 будет срабатывать всегда. Я пробовал решить эту проблемму следующим способом:

procedure TMainForm.WM_ICON(var Msg: TMessage);
var
 ClickMsg: TMsg;
 TargetTime: Longint;
begin
 case Msg.LParam of
   WM_LBUTTONDOWN:  
   begin
      TargetTime := GetTickCount + GetDoubleClickTime;
      while GetTickCount < TargetTime do
        if PeekMessage(ClickMsg, Handle,
                       WM_LBUTTONDBLCLK,
                       WM_LBUTTONDBLCLK,
                       WM_NOREMOVE) then Exit;
      {Действие №1};
   end;
   WM_LBUTTONDBLCLK: {Действие №2};
 end;      
end;

Но ничего не выходит - PeekMessage всегда возвращает 0. Спрашивается, в чем ошибка? И если другие способы решения данной проблеммы? Заранее благодарю.

---

Turbid   (2006-03-30 02:38:00) [1]

Ну почему же? Если бы TargetTime было в цикле while, то тогда оно было бы всегда больше.

---

Германн   (2006-03-30 02:32:00) [2]

>       TargetTime := GetTickCount + GetDoubleClickTime;
>       while GetTickCount < TargetTime do
>


Ну да. TargetTime всегда больше GetTickCount при данном алгоритме. И что ты ещё хочешь?

---

Наверх