Maus als Objekt

[ErdNussLocke]

Hi,
ich möchte, dass in meinem Delphi Projekt die Maus eine Button ist, den man am oberen Rand mit der Mausbewegung nach rechts und links bewegen kann.
Danke im Vorraus
MfG
ErdNussLocke

[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)

[ErdNussLocke]

danke für deine Antwort!
Kann es sein das das nicht auf imagekomponenten funktioniert?
Weil wenn ich eine drunter lege bewegt er sich nicht mehr.
(Kann man das auch noch machen, dass die Maus dann nicht zu sehen ist?)
ErdNussLocke