...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