Form ohne Rahmen bewegen

[BadenPower]

Hallo zusammen,

am einfachsten ist es wohl WMNCHitTest zu überscheiben.
Sind dann ganz einfach nur 6 Zeilen.

Delphi-Quellcode:

type
  TMyForm = class(TForm)
    // ...
  private
    procedure WMNCHitTest(var AMessage: TWMNCHitTest); message WM_NCHITTEST;
  end;

und

Delphi-Quellcode:

procedure TMyForm.WMNCHitTest(var AMessage: TMessage);
begin
  inherited;
  AMessage.Result := HTCAPTION;
end;

Dann wird das Fenster genau so verschoben, als hättest Du eine Titelzeile.

.