Delphi: Auf minimieren einer Form reagieren, OnMinimize

Suche mal nach der Komponente mit dem Namen TApplicationEvents. Diese Komponente stellt allerhand Ereignisse deiner Anwendung bereit, unter anderem auch dein gesuchtes OnMinimize.

Einfach die Komponente auf deine Form ziehen und unter OnMinimize den Code schreiben, der ausgeführt werden soll.
05.08.2012 um 15:54

Die Lösung von Computer Experte funktioniert sicher ganz gut, es gibt aber Fälle, in denen die Lösung nicht praktikabel ist, da sich TApplicationEvents immer auf die gesamte Anwendung bezieht. Wenn du aber nur die Ereignisse einer bestimmten Form abfangen möchtest, kannst du folgenden Code verwenden:

//unter private deklarieren
private
  procedure WMSysCommand(var msg: TWMSysCommand);
     message WM_SYSCOMMAND;


//und hier die Prozedur
procedure TForm1.WMSysCommand(var msg: TWmSysCommand);
begin
  if msg.CmdType = SC_MINIMIZE then
  begin
    //hier dein Code, der ausgeführt werden soll
    exit;
  end;

  inherited;
end;

Mit der Prozedur fängst du alle Windows Messages ab, die an das Fenster gesendet werden. Beim Minimieren ist der Typ der Windows Message "SC_MINIMIZE" und du kannst darauf reagieren und deinen entsprechenden Code hinschreiben.

Wenn du das "exit" weglässt, wird danach noch die Standard-Aktion des Minimierens ausgelöst. Ansonsten nicht.
05.08.2012 um 16:10