WM_SIZE - wie wParam erfragen?

[Chearly020664]

Hallo KodeZwerg,

herzlichen dank, alles funktioniert jetzt perfekt und ich habe gelernt ...

Delphi-Quellcode:

procedure TForm1.WMSysCommand(var msg: TWmSysCommand);
begin
  inherited;
  case msg.CmdType of
    SC_MINIMIZE: Apfelmann1Click(self);
    SC_MAXIMIZE: Apfelmann1Click(self);
    SC_RESTORE: Apfelmann1Click(self);
  end;
end;