Mega Code Archive

 

Categories / Delphi / Examples

 

Implement OnBeforeResize, OnAfterResize

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