Hinzufügen von neuen Ereignissen zu Komponenten

[scp]

Wie wärs damit:

Delphi-Quellcode:

type 
  TDigitLedMouseDownEvent = procedure(Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
  TDigitLed = class(TPaintBox) 
  private 
  ... 
  protected 
    { Protected declarations } 
    ... 
    FOnMouseDown : TDigitLedMouseDownEvent;
    procedure MouseDown(Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); override; 

  public 
    { Public declarations } 
    ... 

  published 
    { Published declarations } 
    ... 
    property OnMouseDown : TDigitLedMouseDownEvent read FOnMouseDown write FOnMouseDown; 
  end; 

procedure Register; 

implementation 
{$R DIGITLED.DCR} 

procedure Register; 
begin 
  RegisterComponents('MoonRed', [TDigitLed]); 
end; 

... 

procedure TDigitLed.MouseDown(Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  inherited; 
  If Assigned(FOnMouseDown) then
    FOnMouseDown(Button, Shift, X, Y);
end;