OnClick dinamicamente

Delphi

03/02/2006

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


Ricardo Oliveira

Ricardo Oliveira

Curtidas 0

Respostas

Michael

Michael

03/02/2006

Olá!

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


GOSTEI 0
Ricardo Oliveira

Ricardo Oliveira

03/02/2006

Blz ! farei isso,

grato,


GOSTEI 0
POSTAR