Form verbieten zu bewegen

[WordsBG]

Das einzige was ich wüsste wäre das hier:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TfrmMain = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure Idle(Sender: TObject; var Done: Boolean);
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.Idle(Sender: TObject; var Done: Boolean);
const
  posX = 300;
  posY = 300;
begin
  if (Self.Top <> posY) AND (Self.Left <> posX) then
  begin
    Self.Top := posY;
    Self.Left := posX;
  end;
  Application.ProcessMessages;
  Sleep(100);
  Done := False;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Application.OnIdle := Idle;
end;

end.

Es verbietet zwar nicht das verschieben, aber sofort nach dem loslassen der Maus ist das Fenster wieder an der richtigen Stelle. Wahrscheinlich lässt sich das aber noch besser lösen.