Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: PopUpMenu durch Klick auf TrayIcon anzeigen ?

  Alt 17. Aug 2008, 17:01
Delphi-Quellcode:
private
  procedure TaskbarEvent(var Msg: TMessage); Message WM_TASKABAREVENT;

:
:

procedure TFMain.TaskbarEvent(var Msg: TMessage);
var Point:TPoint;
begin
  if Msg.LParam = WM_LBUTTONUP then begin
    // Linksklick...
    GetCursorPos(Point);
    PopupMenu.Popup(Point.x, Point.y);
  end;
end;
  Mit Zitat antworten Zitat