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.
.