Um es komplett auf
VCL-Art zu machen:
Delphi-Quellcode:
procedure TFrmMain.Handler(Sender: TObject);
begin
// Tue irgendwas beim minimieren
end;
procedure TFrmMain.FrmMainCreate(Sender: TObject);
begin
Application.OnMinimize := Handler;
end;
Für's Maxmimieren einfach OnMinimize durch OnMaximize ersetzen...
Sollte funktionieren,
Chris