...implement OnBeforeResize, OnAfterResize?

{ .... }

private
  { Private declarations }
  procedure OnBeforeResize(var Msg: TMessage); message WM_ENTERSIZEMOVE;
  procedure OnAfterResize(var Msg: TMessage); message WM_EXITSIZEMOVE;


{ .... }


// implementation

procedure TForm1.OnBeforeResize(var Msg: TMessage);
begin
  //..
end;


procedure TForm1.OnAfterResize(var Msg: TMessage);
begin
  //..
end;

printed from
www.swissdelphicenter.ch
developers knowledge base