Как отловить сообщение системы для окна в Лазарус?
Я хочу выловить сообщение от винды о том, что мою
иконку в трее кто-то клацает...
Например сообщение WM_USER или WM_USER + 1...
В дельфях это делается написанием специальной функции, которая
вызывается автоматически при появлении этого сообщения в очереди...
В Лазарус этот код компилится без ошибок, но функция
на сообщение не реагирует
//-----------------------------------------------
public
{ Public declarations }
procedure wmiconclick (var msg: TMessage); message WM_USER;
//------------------------------------------------
//------------------------------------------------
procedure wmiconclick (var msg: TMessage);
begin
// код
end;
//------------------------------------------------
может я чего не так делаю?