ApplicationEvent Minimize nur 1x

[Piro]

Guten Abend,

habe gerade mit TurboDelphi und den beiden Komponenten ApplicationEvent und TrayIcon herum gespielt. Beim Aufruf des Minimieren soll die Application verschwinden und das TrayIcon erscheinen. Ich benutze folgenden Code:

Code:

...
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
 TrayIcon1.Visible := True;
 form1.FormStyle := fsStayOnTop;
 Application.MainForm.Hide;
end;

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
 TrayIcon1.Visible := False;
 Application.Restore;
end;
...

Dies funktioniert beim aller ersten Mal auch einwandfrei. Nach Wiederherstellung der Application und dem Erneuten Minimieren, erscheint das TrayIcon aber die Application verschwindet nicht mehr aus der Taskleiste. Weiß einer warum?

[Sunlight7]

Versuche statt Application.Restore;
Application.MainForm.Show;

[Piro]

Leider geht dann bei 2.Minimieren dann gar nichts mehr. Soll heißen, dass die Mainform sich nicht mehr minimiert.

Man woran kann das denn liegen?

[Sunlight7]

Wahrscheinlich weil Delphi glaubt, das sie noch minimiert ist.

Das hab ich vorher übersehen, beides verwenden:
Application.MainForm.Show;
Application.Restore;

Oder auch anders rum...
Hab grad keine Delphi zum testen zur Hand...

[Piro]

Danke, es hat geklappt. Ist schon komisch, dass es von der Reihenfolge abhängig ist. Hier die Lösung:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
 Form1.FormStyle := fsStayOnTop;
 TrayIcon1.Visible := True;
 Form1.Hide;
end;

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
 Application.MainForm.Show;
 Application.Restore;
 TrayIcon1.Visible := False;
end;

Danke und guten Nacht.

[Luckie]

Warum setzt du den FormStyle auf fsStayOnTop, wenn du es doch versteckst? Abgesehen mal davon, dass man den FormStyle zur Laufzeit nicht ändern sollte.

[Sunlight7]

Stimmt, ist mir gar nicht aufgefallen...

Aber warum sollte man die nicht zur Laufzeit ändern :gruebel:
Weil sich das Fensterhandle ändert?