Не могу поймать сообщения от мыши в SysTray!!!

← →
ODUVAN (2002-08-01 20:23) [0]

При ловке сообщения в процедуре:

tray.TOnMouse:=TOnTrayIconMouse(MakeMethod(nil,@ляляля));

procedure ЛяЛяЛя(Sender:TObject; Message:Word)
begin
if message=WM_LBUTTONDOWN then HALT;
end;

почемуто в Message поступает число WORD (допустим 65535), когда WM_LBUTTONDOWN = $0200 -> 512, нчеге не понеми???

Пытался получить младшый байт (lPAram) LO(Message), все равно не ловится сообщение.

Хелп ми бедному плизе!

← →
HekTo (2002-08-02 01:07) [1]

RTFM... А заодно предыдушие топики и примеры КОЛы.

> procedure ЛяЛяЛя(Sender:TObject; Message:Word)
> begin
> if message=WM_LBUTTONDOWN then HALT;
> end;

procedure ЛяЛяЛя( Dummy: Pointer; Sender: TObject; Message: Word);
Если в хелпе написано, что процедура (event) "of object", то при использовании "MakeMethod" надо добавлять этот параметр...

> почемуто в Message поступает число WORD (допустим 65535),
> когда WM_LBUTTONDOWN = $0200 -> 512

Естественно, туда поступает указатель на Sender"а...

← →
Vladimir Kladov (2002-08-03 14:36) [2]

И третий параметр должен быть var Mouse: TMouseEventData
а не Message: Word

← →
HekTo (2002-08-08 00:54) [3]

А тогда справочку бы надо подправить, а то в справке от 1.38 сказано:

type TOnTrayIconMouse = procedure( Sender: TObject; Message: Word ) of object;
Event type to be called when Applet receives a message from an icon, added to the taskbar tray.

← →
Vladimir Kladov (2002-08-09 08:25) [4]

А, это сообщение от трея. Тогда третий параметр дествительно word. И это код сообщения от мыши.

Не могу поймать сообщения от мыши в SysTray!!! Найти похожие ветки