Form verbieten zu bewegen

[SirThornberry]

so hab ichs gemeint:

Delphi-Quellcode:

procedure WMMoving(var AMsg: TMessage); message WM_MOVING;
procedure WMNCHitTest(var AMsg: TMessage); message WM_NCHITTEST;
[...]
procedure TForm1.WMMoving(var AMsg: TMessage);
var
  lRect: PRect;
begin
  lRect := PRect(AMsg.lParam);
  lRect^ := Rect(Left, Top, Left + Width, Top + Height);
end;

procedure TForm1.WMNCHitTest(var AMsg: TMessage);
begin
  inherited;
  if AMsg.Result = HTCAPTION then
    AMsg.Result := HTCLIENT;
end;