...herausfinden, ob eine TForm verschoben wurde?

Autor: Thomas Stutz

Kategorie: Oberfläche

type
  
TForm1 = class(TForm)
  private
    procedure 
WMMove(var Msg: TWMMove); message WM_MOVE;
    { Private-Deklarationen}
  
public
    
{ Public-Deklarationen}
  
end;

var
  
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMMove(var Msg: TWMMove);
begin
  inherited
;
  ShowMessage('Form has moved!');
end;

end.

 

printed from
www.swissdelphicenter.ch
developers knowledge base