WM_SIZE + SIZE_MINIMIZED geht nicht?

[Snoopy240871]

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....