Form verschieben!!!!

[johny]

Hier noch eine Lösung:

Delphi-Quellcode:

{ = DragAndDrop = }

var
 xPos, yPos: integer;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 xPos := x;
 yPos := y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then
 begin
  Form1.Left := Form1.Left + X - xPos;
  Form1.Top := Form1.Top + Y - yPos;
 end;
end;