Ereignis "Minimieren"

[Meflin]

vielleicht funzt form1.application.minimze?

[S2B]

Wie soll ich das verstehen? Als extra procedure oder als Befehl (kann ja fast nicht sein!)?

[Meflin]

nein du sollst einfach mal statt

Delphi-Quellcode:

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

Delphi-Quellcode:

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

probieren!

[S2B]

Das kann doch gar nicht gehen, da die Form ja nicht die Eigenschaft application hat...

[Meflin]

auch wieder war. aber erlich gesagt erkenn ich bis jetzt null sinn in dem was du vorhast villeicht gibts da auch ne bessere lösung?!

[S2B]

Also dann sag ich's halt nochmal.
Ich habe eine Form, die am Start meines Programms gelanden wird, die ist die MainForm des Programms. Wenn ich die minimiere, dann wird die ganze Anwendung minimiert! Nach ca. 5 Sekunden wird diese Form aber ausgeblendet und die eigentliche "Hauptform" des Programms wird sichtbar. Wenn ich die jetzt minimiere, dann wird nur diese Form minimiert, nicht aber alle anderen geöffneten Formen. Ich bräuchte also sowas:

Delphi-Quellcode:

procedure TForm1.FormMinimize(Sender: TObject);
begin
  application.Minimize;
end;

Da es das aber nicht gibt, habe ich ein kleines Problem...
Hoffe, mir kann jemand helfen!

[Meflin]

dann musst du das minimize eben von der mainform ausführen. vielleicht funzt ja with form1 do begin minimize end? glaub ich zwar jetz auch net aber wer weis...

[alcaeus]

Es gibt einen Grund, wieso die Komponente ApplicationEvents heißt, und nicht FormEvents. Das OnMinimize-Ereignis wird nur ausgelöst, wenn dein MainForm minimiert wird. Wie du es auf andere Forms erweitern kannst, weiß ich leider auch nicht...

[add]Das heißt, du willst sowas ähnliches wie bei Delphi machen? Sobald das Fenster mit dem Menü minimiert wird, geht der Rest auch weg...nur dass das bei allen Dialogen funzen soll?[/add]

[S2B]

@Meflin: Das minimieren auszuführen wäre ja kein Problem, aber ich kann es nicht beim Minimieren der Nicht-MainForm ausführen lassen

@alcaeus (zum add) Ja! Genauergesagt muss das nur mit einer Form funktionieren, aber das kommt ja aufs gleiche raus!

[alcaeus]

Ich glaub ich hab was:

Das OnDeactivate-Ereignis des Forms wird ausgelöst, wenn der Focus zu einem anderen Form geht.
Die Eigenschaft WindowState gibt an, in welchem Status das Fenster ist.

In der Praxis müsste das dann so aussehen:

Delphi-Quellcode:

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  if WindowState=wsMinimized then
    Application.Minimize;
end;

Ich habe den Code nicht probiert, aber er müsste funzen