Propagate Etkinliği, iç bileşenden

Question

Birkaç bileşen içeren bir bileşen yazıyorum. fGrid dahil etmek

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; 

Ben, bileşen (TPanel) den Etkinlik yaymak için mümkün istiyorum. Bu hedefe nasıl ulaşabilirim?

Aynı tür bir Olayı (konteyner bileşeni olarak) TPanel'de bildirmeliyim. O zaman fGrid'e nasıl yayılır?

Answer 1

O ne istediğini biraz belirsiz, ama bakın koduna dayalı bir olay işleyicisi yazmak ve ızgara atamak ...

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;