WM_SIZE Handler Maximize, Minimize,...

[Dunkelbunt27]

Ich weiß wo ich OnPaint finde ;D
Aber danke, für den Tipp.

[edit]Ich muss mich leider nochmal melden.
Das:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure WMSize(var Msg: TMessage); message WM_SIZE;
[...]

verträgt sich leider überhaupt nicht mit:

Delphi-Quellcode:

type
[...]
procedure WMExitSizeMove(var Message: TMessage); message WM_EXITSIZEMOVE;

Wenn ich beides schreibe, wirkt das ExitSizeMove nicht mehr, und das Fenster wird nicht neugezeichnet nach dem resizen.
Jemand ne Idee wie ich das lösen könnte?
Oder ob man beides verbinden kann?
[/edit]

[edit2]
Ich hab das ganze jetzt mit folgendem gelöst, jedoch fehlt noch eine Kleinigkeit:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
case Form1.WindowState of
      wsMaximized:                               //maximiert
      begin
       [...]
      end;

      wsMinimized:                               //minimiert
      begin
        [...]
      end;

      wsNormal:
      begin
        [...]                                        //...
      end;
      else
      begin
        [...]                                        //...
      end;
end;
end;

Was fehlt ist, wenn ich das Fenster maximiere und dann auf Größe wiederherstellen klicke, wird nicht neu gezeichnet!
Weiß jemand was ich dazu machen muss?
[/edit2]

[Dunkelbunt27]

(Es sind jetzt mehr als 24h vergangen, also muss ich einen neuen Post schreiben.)

Mir fehlt eine Prozedur oder Eigenschaft die ich benutzen kann um ein Ereignis auszulösen, wnen ich das Programm erst maximiere und dann auf Größe wiederherstellen, Verkleinern, oder wie es sonst noch in den Windows versionen heißt. Es ist die Schaltfläche zwischen maximieren und minimieren.
(Ich hoffe jeder weiß was ich meine)

Es wäre klasse, wenn jemand eine Antwort wüsste!

[DeddyH]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  inherited;
  if Msg.CmdType = SC_RESTORE then
    ShowMessage('Hallo');
end;

[Luckie]

Was willst du eigentlich erreichen? Jedes mal wenn ein neu zeichnen erforderlich ist, wird OnPaint ausgelöst.

[Dunkelbunt27]

Danke!
DeddyH :thumb: funktioniert.

Zitat:

Was willst du eigentlich erreichen? Jedes mal wenn ein neu zeichnen erforderlich ist, wird OnPaint ausgelöst.

Richtig, aber beim "Restore" der Größe ist dies aus irgendeinem Grund nicht passiert, deshalb die Frage.

FG Dunkelbunt