Sorry, war auch mein Fehler.
Das Event muss so aussehen:
Delphi-Quellcode:
type
TDigitLedMouseDownEvent = procedure(Sender : TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer) of object;
Und der Aufruf in der MouseDown function so:
Delphi-Quellcode:
procedure TDigitLed.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
If Assigned(FOnMouseDown) then
FOnMouseDown(self, Button, Shift, X, Y);
end;