ShowMessage wenn form2 minimiert wird ?

[thomas2009]

Hallo

Forms haben in OI den Event OnMinimize leider nicht
Ich möchte eine Message zeigen lassen, wenn Form2 minimiert wird
Ich habe mit der Komponent "ApplicationEvents1" folgendes gemacht aber es passiert leider nichts

Delphi-Quellcode:

procedure TForm2.ApplicationEvents1Minimize(Sender: TObject);
begin
ShowMessage('Form2 wurde minimiert');
end;

[Klaus01]

Hallo,

kannst Du nicht das Ereignis onHide dazu verwenden?

Grüße
Klaus

[thomas2009]

die Anwender klicken aber aud das "-" Icon in der Leiste oben rechts
d.h. Form2 wird Minimiert und nicht ausgebleded

[Klaus01]

Na, vielleicht bringt Dich ja dann dieser Artikel weiter.

Grüße
Klaus

[thomas2009]

Problem gelöst mit diesem kurzen Code:

Delphi-Quellcode:

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MINIMIZE: begin
                    ShowMessage('Form wird minimiert');
                  end;
   end;
   inherited;
end;