Bei Wiederherstellen des Fensters Procedure ausführen

[SirThornberry]

Delphi-Quellcode:

[...]
  private
    procedure FOnAppRestore(Sender: TObject);
[...]
procedure TForm1.FOnAppRestore(Sender: TObject);
begin
  showmessage('Gegenteil von minimieren.');
end;
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnRestore := FOnAppRestore;
end;