Delphi/Lazarus: Programm mit Icon im System Tray anzeigen

Im Bereich "Additional" findest du die Komponente TTrayIcon. Wenn du die auf dein Programm ziehst, hast du schon alles, was du brauchst.

In den Eigenschaften von TrayIcon kannst du genau festlegen, wie sich die Komponente zu verhalten hat.

• Die Eigenschaft "Visible" legt fest, ob dein TrayIcon sichtbar ist. Du kannst die Sichtbarkeit direkt auf "true" stellen, dann ist das Icon sofort sichtbar, oder du stellst die Sichtbarkeit erst auf "false" und änderst sie später während der Laufzeit des Programms.
• Unter "Icon" kannst du ein Bild einstellen, welches als Icon in der Taskbar verwendet wird.
• Auch interessant ist das "PopUpMenu", mit dem du ein PopUp-Menü für die Task-Leiste definieren kann, das dann angezeigt wird, wenn der Anwender mit der rechten Maustaste auf das Icon klickt.

Angenommen, du hast einen Button auf deiner Form, könntest du zum Beispiel folgendes realisieren:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Hide;
   TrayIcon1.Visible:=true;
end;

Damit wird dein Fenster versteckt und gleichzeitig das TrayIcon angezeigt.

Natürlich kannst du dasselbe auch dann machen, wenn der Anwender das Fenster minimiert:

procedure TForm1.FormWindowStateChange(Sender: TObject);
begin
  if Form1.WindowState = wsminimized then begin
     Form1.Hide;
     TrayIcon1.Visible:=true;   
  end;
end;      

So wird das Fenster direkt in den Tray minimiert.

Um das Fenster wieder zu bekommen, kannst du im Event OnDblClick des TrayIcons folgendes schreiben:

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
  Form1.WindowState:=wsNormal; 
  Form1.Show;    
  Form1.SetFocus;   
  TrayIcon1.Visible:=false;
end;

Wenn man also doppelt auf das TrayIcon klickt, wird das Fenster wieder angezeigt, bekommt den Focus und das TraycIcon wird unsichtbar gestellt.

Ich denke damit hast du erst einmal alles was du brauchst und kannst die entsprechenden Funktionen noch nach Belieben anpassen.
21.03.2015 um 17:00