WM_SIZE - wie wParam erfragen?

[Chearly020664]

Hallo,

WM_SIZE wird an ein Fenster gesendet, nachdem sich die Größe geändert hat.

https://docs.microsoft.com/de-de/win...winmsg/wm-size

Wie komme ich in folgender unfertigen procedure an wParam von WM_SIZE? Ich muss aus wParam auf "wiederhergestelltes Fenster", "maximiertes Fenster" u. "minimiertes Fenster" schließen.

Delphi-Quellcode:

procedure WMSIZE(var Message: TMessage); message WM_SIZE;
.
.
.
procedure TForm1.WMSIZE(var Message: TMessage);
begin
     ShowMessage('WM_SIZE');
end;

Irgendwas mit WindowProc?
Verwirrung, Verzweifelung, Chaos

Danke für Hilfe
Grüße

[KodeZwerg]

Reagiere doch auf Maximiert und Minimiert um daraus was anzufangen wie ich es Dir hier gezeigt habe.

[Uwe Raabe]

Zitat von Chearly020664:

Wie komme ich in folgender unfertigen procedure an wParam von WM_SIZE?

Delphi-Quellcode:

  case Message.WParam of
    SIZE_MAXIMIZED: ;
    SIZE_MINIMIZED:;
    SIZE_RESTORED: ;
  end;

[Chearly020664]

Delphi-Quellcode:

procedure TForm15.WMSysCommand(var msg: TWmSysCommand);
begin
  case msg.CmdType of
    SC_MINIMIZE: ShowMessage('Minimize');
    SC_MAXIMIZE: ShowMessage('Maximize');
  end;

  inherited;
end;

Danke, das ist gut gemeint, aber ShowMessage('Minimize'); oder ShowMessage('Maximized'); werden leider vor der Minimierung oder Maximierung ausgeführt.

[Chearly020664]

Delphi-Quellcode:

case Message.WParam of
    SIZE_MAXIMIZED: ;
    SIZE_MINIMIZED:;
    SIZE_RESTORED: ;
  end;

Danke, was kann die Welt einfach sein ..., ach was wäre das doch schön, wenn das Einfügen von

Delphi-Quellcode:

procedure WMSIZE(var Message: TMessage); message WM_SIZE;
.
.
.
procedure TForm1.WMSIZE(var Message: TMessage);
begin
     //mach gar nichts
end;

keinen durch Null geteilt-Fehler geben würde.
Danke - ich suche und kämpfe mit Microsoft ...
Grüße

[KodeZwerg]

Zitat von Chearly020664:

Danke, das ist gut gemeint, aber ShowMessage('Minimize'); oder ShowMessage('Maximized'); werden leider vor der Minimierung oder Maximierung ausgeführt.

dann setz inherited; als erste zeile und nicht als letzte ...

[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;

[KodeZwerg]

Zitat von Chearly020664:

ich habe gelernt

Super Genau darum geht es ja hier plus Spaß an Delphi haben