Bild der Maus "hinterhertuckern"

[Die Muhkuh]

Ihr kennt doch alle bestimmt C&C und so. Wenn man da ein Männchen markiert und dann auf den Boden klickt läuft das Männchen dahin. Wie kann ich das mit Delphi machen?

Einfach so zum Testen soll ein Label immer der Maus 2hinterhertuckern". Also keine großen Bilder sondern nur ein kleines Label.
Wie kann ich das reallisieren?

[Jens Schumann]

Hallo,
evt so

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.SetBounds(X+15,Y+15,Label1.Width,Label1.Height);
end;

Wenn Du jetzt aber mit der Maus über ein Control fährst kommt das Label nicht nach.

[Die Muhkuh]

Ne das geht auch net.

das Label "hängt" einfach ein bisschen versetzt unter der Maus

[SirThornberry]

im onmousemove des formulars die neue mausposition in einer Variablen speichern (oder mit Hook damits auch über controls ausgelöst wird) und dann in einer in einer timerprocedure das Object auf den punkt zu bewegen lassen