Fórum OnClick dinamicamente #311596
03/02/2006
0
olá a todos !
no meu form tem 5 botoes criados dinamicamente.
Eu nao queria criar o evento onclick para cada botao (5 eventos onclick) mas sim uma rotina que pegasse o botao clicado e direcionasse para as rotinas pertencentes a cada um.
desde ja agradeço
no meu form tem 5 botoes criados dinamicamente.
Eu nao queria criar o evento onclick para cada botao (5 eventos onclick) mas sim uma rotina que pegasse o botao clicado e direcionasse para as rotinas pertencentes a cada um.
desde ja agradeço
Ricardo Oliveira
Curtir tópico
+ 0
Responder
Posts
03/02/2006
Michael
Olá!
Use a orientação a objetos:
[]´s
Use a orientação a objetos:
procedure Click(Sender: TObject);
implementation
procedure Click(Sender: TObject);
begin
if Sender is TButton then
with Sender as TButton do
// A instância representada aqui por Sender é o botão clicado.
end;
...
Button1.OnClick := Click;
Button2.OnClick := Click;
Button3.OnClick := Click;
...[]´s
Responder
Gostei + 0
03/02/2006
Ricardo Oliveira
Blz ! farei isso,
grato,
grato,
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)