delphi - 从内部组件传播事件

Question

我正在编写一个包含很少组件的组件。

TMyComponent = class(TPanel)
  private
    fGrid : TExCustomDBGrid;
    fOnCellClick : TDBGridClickEvent;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnCellClick: TDBGridClickEvent read FOnCellClick write FOnCellClick;
  End;
...
constructor TMyComponent .Create(AOwner: TComponent);
begin
  inherited;
  fGrid := TExCustomDBGrid.Create(self);
  fGrid.parent := self;
  fGrid.Align := alClient;
end;

我希望能够将事件从组件（TPanel）传播到包含的fGrid。
我怎样才能达到那个目标？

我想我应该在TPanel上声明一个具有相同类型的事件（作为容器组件）。然后如何传播到fGrid中？

Answer 1

不清楚您要问的是什么，但是根据我看到的代码，编写一个事件处理程序并将其分配给网格...

procedure TMyComponent.DBGridCellClicked(Column: TColumn);
begin
  if Assigned(fOnCellClick) then
    fOnCellClick(Column);
end;

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;
  fGrid := TExCustomDBGrid.Create(self);
  fGrid.Parent := self;
  fGrid.Align := alClient;
  fGrid.OnCellClick := DBGridCellClicked;
end;