Natürlich noch die Hälfte vergessen!!! Das Menü soll ja beim Klick auf das Icon in der Taskbar aufklappen, dazu musst Du den Klick abfangen
Delphi-Quellcode:
//Deklaration:
procedure WMTaskBarEvent(var message: TMessage); message WM_TASKBAR_EVENT;
//Diese Procedure redistriert den Klick auf das Icon
procedure TfrmMain.WMTaskBarEvent(var message: TMessage);
begin
//Auswerten des unteren bereichs von LParam
//Param = 32 Bitwert unterteilt in 16 Lo und 16 Hi
case message.LParamLo of
WM_LBUTTONDBLCLK : ZeigeFenster;
//WM_LBUTTONDOWN : ZeigeMenue;
WM_RBUTTONDOWN : ZeigeMenue;
end;
end;
//Diese Procedure zeigt dann das Menü an
procedure ZeigeMenue;
//Zeigt das Menue
var
crsPos : TPoint;
begin
//Die aktuelle Cursorposition auslesen
GetCursorPos(crsPos);
//Damit das Menü auch wieder zugeht, wenn nix geklickt wurde
//muss das unsichtbare fenster in den Vordergrund
SetForeGroundWindow( self.Handle );
//Menü an Cursorposition aufklappen lassen
popMain.Popup(crsPos.X, crsPos.x);
end;
Vielleicht kannste das aber auch in der Komponente einstellen, habe sie selbst noch nicht verwendet, bloss gesehn!
CU