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.