...OnBeforeResize, OnAfterResize implementieren?

Autor: Thomas Stutz

Kategorie: VCL

{ .... }

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