möchte immer an der selben Position bleiben

[oki]

Nun,

ein weiterer Weg ist die procedure WMMOVING. Das gelieferte Rect auf die feste Rect-Einstellung korrigieren und fertig.

Delphi-Quellcode:

procedure WMMoving(var AMsg: TMessage); message WM_MOVING;

procedure TMyCustomControl.WMMoving(var AMsg: TMessage);
var ARect : PRect;
begin
  ARect := PRect(AMsg.lParam);
  ARect.Left := 10;
  ARect.Top := 10;
end;

Gruß oki