Mouse-Events weiterreichen?

[DeddyH]

Vielleicht so?

Delphi-Quellcode:

type
  TMyPanel = class(TPanel)
  private
    FEdit: TEdit;
    procedure OnSubComponentClick(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

...

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited;
  FEdit := TEdit.Create(self);
  FEdit.Parent := self;
  FEdit.OnClick := OnSubComponentClick;
end;

procedure TMyPanel.OnSubComponentClick(Sender: TObject);
begin
  if Assigned(OnClick) then
    OnClick(self); // oder auch Sender statt self, wie man es halt braucht
end;