Eventos em componente criando dinamicamente
Eu estou criando o seguinte componente, baseado na quantidade de registro que tenho em Bando de Dados:
procedure TForm1.Panel(rotulo: string; id, linha: integer);var Panel: TPanel;beginPanel:=TPanel.Create(Self);Panel.Parent := ScrollBox1;Panel.Caption := IntToStr(id);Panel.Tag := id;Panel.Top:=(linha * 41) - 41;Panel.Width:=120;Panel.Color:=clBlue;end;
Como eu faço para acessar o evento do componente criado. Eu preciso de colocar uma rotina diferente, no evento OnClick de cada componente criado dianamicamente.
Abraços
Discussão (6)
Carregando comentários...