Felipe Monteiro de Carvalho wrote:
On Lazarus doesn´t matter witch button I click nothing happens. On
Delphi Right click brings up the Popup menu and Click executes the
desired method.
Ok, I have a hint. From Lazarus debugger I can see that it enter
WndProc, but it never enters MYWM_NOTIFYICON:
procedure TMainWindow.WndProc(var Message: TMessage);
var
pt: TPoint;
begin
case Message.msg of
{*******************************************************************
* This is a message from icon
* lParam includes the type of the message
*******************************************************************}
MYWM_NOTIFYICON:
begin
// Processes the extra information
case (Message.lParam) of
WM_RBUTTONUP:
begin
pt := Mouse.CursorPos;// Gets cursor position in screen coords
vMenu.Popup(pt.x, pt.y);
end;
WM_LBUTTONUP: ExecuteLens;
end;
end;
else
inherited WndProc(Message);
end;
end;
thanks,
Felipe
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
