Maus als Objekt

[fLaSh11]

ganz einfach mit Mouse Move

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Button1.Left:=X;
end;

anbei das ganze... (is ja nicht schwer)