Mega Code Archive

 

Categories / Delphi / OOP

 

How to implement OnBeforeResize, OnAfterResize

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;