ich möchte meiner Komponente zusätzliche Funktionalität für das Mausrad hinzufügen.
Leider scheitere ich daran, daß ich die MouseWheel Methoden nicht überschrieben bekomme,
da es diese anscheinend garnicht gibt.
Zum Verständnis, dieser minimalistische Code:
Code: Alles auswählen
Type TTestComp = class(TCustomControl)
protected
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp (Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseWheel (Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); override; // PROBLEME
// procedure MouseWheelDown(Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override;
// procedure MouseWheelUp (Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); override;
public
property OnMouseMove;
property OnMouseDown;
property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
end;
procedure TTestComp.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
end;
procedure TTestComp.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
end;
procedure TTestComp.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
end;
procedure TTestComp.MouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
end;
There is no method in an ancestor class to be overriden :
Da ich mit "property" die Ereignisse im Objectinspector veröffentlichen kann, gibt es die Methoden ja.
Aber wie kann ich die in meiner Komponente Überschreiben ?
Damit mein Wochenende gerettet werden kann, würde ich mich über jeden Hinweis freuen....
Siro