Fórum Como pegar a posição de um button #471108
24/02/2014
0
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
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
Curtir tópico
+ 0
Responder
Posts
24/02/2014
Wilton Júnior
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)