Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

ODUVAN © (2002-08-01 20:23:00)
При ловке сообщения в процедуре:

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),все равно не ловится сообщение.

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

Vladimir Kladov (2002-08-09 08:25:00) [1]
А, это сообщение от трея. Тогда третий параметр дествительно word. И это код сообщения от мыши.

HekTo (2002-08-08 00:54:00) [2]
А тогда справочку бы надо подправить, а то в справке от 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-03 14:36:00) [3]
И третий параметр должен быть var Mouse: TMouseEventData
а не Message: Word

HekTo (2002-08-02 01:07:00) [4]
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"а...

Наверх

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