Código Delphi [-]procedure TForm1.StaticTextClick(Sender: TObject); begin ((Sender as TStaticText).Parent as TPanel).OnClick(Sender); end; //... TStaticText(Components[a]).OnClick := StaticTextClick; //...
procedure TForm1.StaticTextClick(Sender: TObject); begin ((Sender as TStaticText).Parent as TPanel).OnClick(Sender); end; //... TStaticText(Components[a]).OnClick := StaticTextClick; //...