WM_ENTERSIZEMOVE / WM_EXITSIZEMOVE mit TFrame?

[taveuni]

Hallo zusammen,
Ich benötige eine Benachrichtigung wenn ein TFrame in der Grösse verändert wird. Und zwar den Beginn und das Ende. In einem Form kann man das so machen:

Delphi-Quellcode:

 protected
    procedure WMEnterSizeMove(var Message: TMessage); message WM_ENTERSIZEMOVE;
    procedure WMExitSizeMove(var Message: TMessage); message WM_EXITSIZEMOVE;

procedure TFormMain.WMEnterSizeMove(var Message: TMessage);
begin
  Logger.Info('enter_size_moved');
end;

procedure TFormMain.WMExitSizeMove(var Message: TMessage);
begin
  Logger.Info('exit_size_moved');
end;

In einem TFrame scheint dies nicht zu funktionieren? Gibt es da eine andere Möglichkeit?
Ich kann auch nicht das ParentForm überwachen. Weil der Resize kann auch via Splitter und anderen Controls verursacht werden. Ohne das die ParentForm die Grösse ändert.

[Uwe Raabe]

Das Konzept kann bei Frames nicht funktionieren (wie auch nicht bei anderen Controls auf dem Form), da diese innerhalb der VCL z.B. über Align oder Anchors ihre Größe anpassen. Dabei sind keine Windows-Messages mehr beteiligt.

Man bedenke nur den Fall, wenn der Frame Align = alNone hat und beim Ändern des Forms seine Größe beibehält. Also rein vom Windows-Gesichtspunkt hat das Resize des Forms überhaupt nichts mit dem Resize der enthaltenen Frames oder Controls zu tun.

Übrigens kann das Resize auch durch eine Änderung des Scalings ausgelöst werden.

[himitsu]

Es gibt auch irgendeine virtuelle Methode, die kann man für das Resize/Align überschreiben (innerhalb der VCL)
und kann/darf dort auch "manuell" positionieren. (sollte bei dieser/diesen Komponente(n) aber auch das Align auf alCustom stehen)

[Uwe Raabe]

Zitat von Uwe Raabe:

Das Konzept kann bei Frames nicht funktionieren

Was ich damit sagen will: Es gibt für Frames den Begriff eines BeginResize und EndResize nicht.
Bei Forms gibt es das und indirekt auch beim Splitter, wobei letzterer das eine indirekt über den OnCanResize-Event (man muss sich halt den Status merken) und das andere über den OnMoved-Event zur Verfügung stellt.

Wenn du das umsetzen willst, wirst du wohl nicht über eine Kombination von "in das Form einhängen" und "in den Splitter einhängen" drum herum kommen.

[taveuni]

Zitat von Uwe Raabe:

Wenn du das umsetzen willst, wirst du wohl nicht über eine Kombination von "in das Form einhängen" und "in den Splitter einhängen" drum herum kommen.

Genau. So etwas wird es sein müssen.
Danke