Projektstart autom. Archivierung

[M-O-D]

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