"Sichtbares" Versetzen eines Buttons mit der Maus

[toms]

Suche mal nach [DP]ReleaseCapture WM_SYSCOMMAND $F012[/DP]

Edit: DP-Tags funktionieren irgendwie nicht...

[himitsu]

Zitat von toms:

Edit: DP-Tags funktionieren irgendwie nicht...

Ja, die Suchtags mögen verschiedene Zeichen nicht,
wie z.B. $ oder :

[GOOGLE]site:delphipraxis.net ReleaseCapture WM_SYSCOMMAND[/GOOGLE] geht och nicht

[DeddyH]

Dieser Thread enthält ein paar interessante Ansätze.

[Jazzman_Marburg]

Vielen Dank -- den Ansatz habe ich wohl verstanden. Ber bei der Umsetzung hagelt es noch Probleme...

Delphi-Quellcode:

    PROCEDURE MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); OVERRIDE; // Wieso geht das nicht?
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); OVERRIDE;

In meiner Klasse hatte ich das Event "MouseUp" wie oben deklariert -- was auch prima klappte. Aber als ich versuchte "MouseDown" zu deklarieren kommt ein Compiler-Fehler:

"Deklaration von MouseDown unterscheidet sich von vorheriger Deklaration.

Aber den Parameter "Sender: TObject;" benötige ich doch, dachte ich...
Was mache ich denn wohl falsch?

Vielen Dank
Jazzman

[DeddyH]

Wovon ist denn Deine Klasse abgeleitet?

[edit] Und bist Du sicher, dass die Parameterliste im interface- und implementation-Abschnitt genau gleich ist? [/edit]