Hallo Mathias,
vielleicht hilft dir das weiter. Das funktioniert in meinem Programm einwandfrei:
private
procedure ApplicationMinimize(Sender: TObject);
beispielsweise im TForm1.FormCreate...
with Application do
OnMinimize:=ApplicationMinimize;
und anschließend kannst du die procedure im implementations Teil beliebig verwenden...
procedure TForm1.ApplicationMinimize(Sender: TObject);
begin
// hier Code was beim minimieren der Anwendung passieren soll
end;
entsprechendes geht auch für
procedure ApplicationRestore(Sender: TObject); (wiederherstellen)
procedure ApplicationActivate(Sender:TObject); (Aktivierung)
Gruß Martin....
