Minimieren/Maximiren von Forms

[Jazz]

Wie lass ich eine Funktion ausführen jeweils Extra beim Minimieren und Maximieren einer Form. THX.

[Mirilin]

Zitat:

Das Ereignis OnMinimize wird ausgelöst, wenn eine Anwendung auf Symbolgröße verkleinert (minimiert) wird.

type TNotifyEvent = procedure(Sender: TObject) of object;
property OnMinimize: TNotifyEvent;

Beschreibung

Mit OnMinimize können Sie eine Ereignisbehandlungsroutine programmieren, mit der Sie bei der Verkleinerung der Anwendung auf Symbolgröße bestimmte Aktionen durchführen können. Die Anwendung wird auf Symbolgröße verkleinert, wenn entweder das Hauptfenster auf Symbolgröße verkleinert oder die Methode Minimize aufgerufen wird. In der Eigenschaft Icon wird das Symbol festgelegt, das die minimierte Anwendung repräsentiert.

OnRestore bewirkt glaube ich das Gegenteil.

[Jazz]

Nee ist onResize. Danke.

[Luckie]

OnResize wird auch ausgelöst, wenn du nur die Größe deines Fensters veränderst.

[Jazz]

Also irgendwie bekomme ich des net gebacken.
das geht doch mit Application.OnMinimize etc.
aber wie sag ich dass da dann eine procedure ausgeführt wird??
THX

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure WMSYSACOMMAND(var msg: TMessage); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSYSACOMMAND(var msg: Tmessage);
begin
  if msg.Msg = WM_SYSCOMMAND then
  begin
    case msg.WParam of
      SC_MAXIMIZE : ShowMessage('Juhu, ich werde maximiert.');
      SC_MINIMIZE : ShowMessage('Hilfe, ich werde minimiert.');
    end;
  end;
  inherited;
end;