Como pegar a posição de um button

Delphi

24/02/2014

Olá eu fiz uma sistema que o usuario digita quantos botões quer e nesse momento ele cria os botões digitado na quantidade.
Exemplo: digita 5 e aparece cinco botões.

O que não consigo é fazer que quando clico no primeiro botão ele execute o que for estipulado no evento onclick do para o primeiro botão e assim por diante.

Alguem pode ajudar?

Obrigado
Wilton S. B. JR

Wilton Júnior

Wilton Júnior

Curtidas 0

Respostas

Wilton Júnior

Wilton Júnior

24/02/2014

procedure TForm1.clickbutton(Sender: TObject);
begin
if (sender as Tbutton).Caption = 'teste0' then showmessage('Teste0')
else if (sender as Tbutton).Caption = 'teste1' then showmessage('Teste1')
else if (sender as Tbutton).Caption = 'teste2' then showmessage('Teste2')
else if (sender as Tbutton).Caption = 'teste3' then showmessage('Teste3')
else if (sender as Tbutton).Caption = 'teste4' then showmessage('Teste4')
else if (sender as Tbutton).Caption = 'teste5' then showmessage('Teste5')
else if (sender as Tbutton).Caption = 'teste6' then showmessage('Teste6')
else if (sender as Tbutton).Caption = 'teste7' then showmessage('Teste7')
else if (sender as Tbutton).Caption = 'teste8' then showmessage('Teste8')
else if (sender as Tbutton).Caption = 'teste9' then showmessage('Teste9')
else showmessage('larga de ser preguiçoso e termina os códigos');
end;
GOSTEI 0
POSTAR