1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

// Der folgende Code stellt fest, wann das Verschieben eines Fensters
// beendet ist. 

// Getestet mit D4 unter XP

... 
  public 
    { Public-Deklarationen } 
    procedure OnMoving(var aMsg: TMsg); message WM_MOVING; 
    procedure WMNCHittest(var Msg: TWMNCHittest); message WM_NCHittest; 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
var 
  xx, yy: integer; 
  moveflag: boolean = false; 
 
procedure TForm1.OnMoving(var aMsg: TMsg); 
begin 
  inherited; 
  if visible and not moveflag then 
  begin 
    moveflag := true; 
    xx := left; 
    yy := top; 
  end; 
end; 
 
procedure TForm1.WMNCHittest(var msg: TWMNCHittest); 
begin 
  if moveflag then begin 
    if (left <> xx) or (top <> yy) 
      then // machwas, z.B.: 
      showmessage('Das Fenster wurde verschoben'); 
    moveflag := false; 
  end; 
  inherited; 
end;