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.