Title: How to 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;