WM_MDIRESTORE und WM_MDIMAXIMIZE will nicht.

[samson]

Hallo,

Ich versuche die beiden Messages für meine Anwendung abzufangen, da ich die Größe der MDIChilds dynamisch korregieren möchte.

Leider wollen diese Messages nicht in meine Anwendung. Weiss jemand Rat und Tag?

Folgendes habe ich im MDIForm so auch in den MDIChild eingefügt:

Delphi-Quellcode:

procedure ChangeWindowState(var Msg :TMessage); message WM_MDIMAXIMIZE;

und entsprechend:

Delphi-Quellcode:

procedure TfmMain.ChangeWindowState(var Msg :TMessage);
var
  txtLog :TextFile;
  strFileName :string;
begin
  strFileName := GetLogFile;
  assignfile(txtLog, strFileName);
  Append(txtLog);
  writeln(txtLog, 'WM_MDIMAXIMIZE aus Main');
  closefile(txtLog);
end;

Mit WM_MDIActivate funktioniert das ganze. Habe ich was falsch gemacht?

Gruß


Samson.