Frage zu Mousepos

[khh]

Hallo zusammen,
ich hab ein Form und darauf befindet sich eine von TCustomControl abgeleitete Componente.
Mit ScreenToClient(Mouse.CursorPos);
bekomme ich die Mouseposition der Form, auch wenn sich die Maus über meiner Komponente befindet.
Aber wie bekomme ich die Mouseposition auf meiner Componente?
Danke für eure Hilfe

Gruss KH

[theo]

Überschreibe:

Code: Alles auswählen

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

dann hast du alles was du brauchst.

Wenn du's anders machen willst, dann wäre das
ClientToScreen();
Könnte man auch selber draufkommen, oder?

[khh]

@theo
logo meine Komponente , sollte die Mouseevents selbst handeln

Könnte man auch selber draufkommen, oder?

jetzt wo du es sagst

Danke Gruss KH