Vererbtes Objekt mit Events

[teamnoobPDB]

Hallo Liebes Forum,

ich habe Folgendes Problem mit einem Objekt:

Ich habe ein Objekt des Typs TCard und möchte, dass sich das OnMouseDown Event ausführt wenn ich auf die Karte dann Klicke so, dass dann meine Prozedur ausgeführt wird.

Code: Alles auswählen

type
  TCard = class(TImage)
    procedure MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  end;

Diese Prozedur wird aber leider nicht ausgeführt wenn ich auf das angezeigte Bild klicke. Wie kann ich es machen, dass wenn ich auf die Karte klicke, dass die MouseDown Prozedur ausgeführt wird?

[theo]

Am besten du überschreibst MouseDown in der abgeleiteten Klasse:

Code: Alles auswählen

{ TCard }
TCard = class(TImage)
protected
  procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);  override;
end;
 .....
 
procedure TCard.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited MouseDown(Button, Shift, X, Y);
end;   

[teamnoobPDB]

Danke klappt jetzt
Mit Override hatte ich es auch schonmal probiert aber es hat nicht geklappt, deswegen hab ich gedacht, dass es eine andere möglichkeit gibt und habe hier mal nachgefragt