"Sichtbares" Versetzen eines Buttons mit der Maus

[Jazzman_Marburg]

(Sehe gerade die Antwort von himitsu -- ich glaube, das war der richtige Hinweis (Self). In der eigenen KLasse ist der Sender tatsächlich nicht nötig. Danke!!)

Zitat von DeddyH:

1. Wovon ist denn Deine Klasse abgeleitet?
2. Und bist Du sicher, dass die Parameterliste im interface- und implementation-Abschnitt genau gleich ist?

Hi!

1. TCustomControl2. Ja. Problem ist, das ich schon im Interface kein:
PROCEDURE MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); OVERRIDE;
anlegen kann: "Deklaration von MaouseDown unterscheidet sich von vorheiger Deklaration".
Hingegen ein:
PROCEDURE MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); OVERRIDE;
Kein Problem ist.

Zitat von sx2008:

Jetzt muss ich doch mal fragen:
Warum verwendest du keine ActionList + eine Toolbar?
...

Naja, so einfach ist das nun mal nicht. Es handelt sich um eine graphische Anwendung, wo der User Objekt frei bewegen können soll. Da ist keine ActionList etc. verwendbar.

Das Bewegen des Button klappt ja such schon prima -- nur möchte ich, das der User den Button während des Versetzens sieht.

Vielen Dank!
Gruß
Jazzman