Unabhängig von deiner Frage zeige ich dir hier einen typischen Anfängerfehler, der je nach dem
üble Konsequenzen haben kann:
Delphi-Quellcode:
// Falscher Code
// Innerhalb von Klasse TForm1 wird auf eine globale Variable Form1 zugegriffen
// böse Sache, falls zur Laufzeit weitere Formulare der Klasse TForm1 erzeugt wurden
procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
TrayIcon1.ShowTaskbarIcon;
Form1.Show; // <===
end;
// Richtig
// man verwendet den implizieten SELF-Parameter
procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
TrayIcon1.ShowTaskbarIcon;
Show; // <===
end;