Ereignis "Minimieren"

[Spurius]

Hallo,
gibts es ein Ereignis was ausgelöst wird wenn man ein Formular minimiert, d.h. es ist nur noch in der Taskleiste sichtbar?
Ich will, dass wenn man rechts oben auf Minimieren klickt, ein bestimmtes Ereignis ausgelöst wird.
Gruß
Spurius

[Meflin]

Jo es tauft sich OnMinimze

[Meflin]

sorry hab ich vergessen: du musst ApplicationEvents von der Palette Zusätzlich einfügen, da gibts das!

[S2B]

Geht das auch, wenn die Form keine MainForm der Anwendung ist? Bei mir nämlich nicht...
Ich hab für die Form mit

Delphi-Quellcode:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

einen Eintrag in der Taskbar erstellt. Wenn ich jetzt die Form minimiere, wird nur diese Form minimiert, die anderen bleiben im Vordergrund (auch, wenn ich in OnMinimize "application.minimize;" reinschreibe).

[Meflin]

ich nehm an wenn du extra nen taskbar eintrag für ein childfenster erstellst, wirst du jedes fenster manuell minimieren müssen, wenn du eins minimierst!

[S2B]

OK! Ich habe den Code einfach in { und } gesetzt, ihn also deaktiviert! Es geht aber trotzdem nicht... :gruebel:

[Meflin]

hä wie was? wenn du ein applicationevents auf deine form plazierst und dort etwas ins OnMinimize Event schreibst, wird das auch ausgeführt sobald die form minimiert wird auf der sich die applicationevents befindet!

[S2B]

Tut mir leid wenn ich dir widersprechen muss aber bei mir funzt des net! Wenn ich in einer nicht-Mainform

Delphi-Quellcode:

procedure TForm2.ApplicationEvents1Minimize(Sender: TObject);
begin
  application.Minimize;
end;

schreibe, dann wird die Form genauso minimiert wie vorher, es entsteht also so ein komisches Fenster über dem Startbutton. Nix da mit Anwendung minimieren...

[Meflin]

ich glaube du verstehst da was falsch: OnMinimize wird ausgeführt, wenn die form minimiert wird, und hat prinzipiell erstmal garnix damit zu tun, WIE die form minimiert wird!

[S2B]

:wiejetzt:
Ja, so hab ich das eigentlich auch verstanden (glaub ich :gruebel:). Also ich mag, dass wenn meine Nicht-Mainform Form1 minimiert wird, alle Formen minimiert werden, also "application.minimize;". Das müsste doch so gehen:

Delphi-Quellcode:

procedure TForm2.ApplicationEvents1Minimize(Sender: TObject);
begin
  application.Minimize;
end;

Hoffe du kannst mir weiterhelfen...