Einen Button zur aktuellen Mausposition setzen

[Sharky]

Hai commandah,

unter welchen Bedingungen soll der Button den "verschoben" werden? Wenn Du einfach das OnMouseDown deiner Form nimmst müsste es so gehen:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  btn_Button1.Left := X;
  btn_Button1.Top := y;
end;