TLabel reagiert nicht auf MouseDown

[khh]

Hallo zusammen,
ich habe ein TMyLabel = class(TLabel)
in der Klasse hab ich das event MouseDown überschrieben.
Hier möchte ich u.a. BeginDrag des Form auf true setzen, damit das Label auf der Form
verschoben werden kann.
Leider wird meine Procedure MouseDown nicht ausgeführt.
TMylabel.MouseDown(Sender:TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

wenn ich dagegen die proc TMyLabel.Click überschreibe, wird diese beim Klick auf meine Komponente TMyLabel ausgeführt.
Wo kann der Fehler liegen?

danke für eure Hilfe

Gruss KH

[khh]

@all

TMylabel.MouseDown(Sender:TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Fehler gefunden, ich hatte override vergessen.
Da stellst sich mir dann aber die Frage, wie ich
TMyObject(Sender).BeginDrag(true); setzen kann, wenn ich ja gar keinen Sender habe

Gruss KH

[khh]

@all
Problem gelösst, sorry hatte auf der Leitung gestanden

Gruss Kh

[Christian]

Das was du da machst ist ziemlich komisch, schau dir mal den designer Code von lazarus an oder von der fp-gui ide...

[petermännchen]

Davon abgesehen ist "kein Sender" = self

Gruß

Peter