Events von Kompo in Klasse weiterleiten

[Sprint]

Delphi-Quellcode:

type
  TTextBox = class(TBox)
  private
    TextLbl: TLabel;
    procedure SetMouseDown(Value: TMouseEvent);
    function GetMouseDown: TMouseEvent;
  published
    property OnMouseDown: TMouseEvent read GetMouseDown write SetMouseDown;
  end;

Delphi-Quellcode:

function TTextBox.GetMouseDown: TMouseEvent;
begin
  Result := TextLbl.OnMouseDown;
end;

procedure TTextBox.SetMouseDown(Value: TMouseEvent);
begin
  TextLbl.OnMouseDown := Value;
end;

Achtung: Nicht getestet!