SysTray Program minimieren / wiederherstellen

[Wil]

Hatte heute das gleiche Problem. Hier ist die Lösung beschrieben.

Delphi-Quellcode:

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
        Form1.Show;
        Application.Restore;
        Application.BringToFront;
end;