Tips (1541)

Tip Bewertung (6):

{ .... }

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;