Eventos em componente criando dinamicamente

[Valdiney F. Lima 0]

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

[Hugo Slepicka 0]

Valdiney, nesse LINK você pode baixar um exemplo que fiz a algum tempo já com a ajuda do Márcio...

 

ai basta você implementar a parte das procedures que cada objeto irá chamar... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Valdiney F. Lima 0]

Valdiney, nesse LINK você pode baixar um exemplo que fiz a algum tempo já com a ajuda do Márcio...

 

ai basta você implementar a parte das procedures que cada objeto irá chamar... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Deu erro. Link quebrado

[Hugo Slepicka 0]

tenta clicar direto aqui então...

 

 

www.simioobeso.org/hugo/forum/Criar_Botao_Dinamico.zip

 

Beleza? http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

clique com o direito e salva arquivo como...

[Valdiney F. Lima 0]

clique com o direito e salva arquivo como...

Deu certinho.Desculpe a ignorância!Abraços

[Hugo Slepicka 0]

Opa, sussa!!!

 

precisando...

 

é só postar!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif