Fórum Qual comando fico sabendo qual foi o ultimo botao clicado? #223248
30/03/2004
0
Tenho cinco botoes em minha tela.Suponhamos que clico no primeiro botao preencho alguns campos na tela e depois clico em salvar. Só que o botao salvar irá executar um codigo se tiver clicado no primeiro botao mas se tiver clicado em um segundo botao ele executa outro codigo( Um if ). Com qual comando fico sabendo qual foi o botao clicado pelo usuario?
Fabiomiranda
Curtir tópico
+ 0
Responder
Posts
30/03/2004
Tnaires
Olá
Vc pode implementar isso da seguinte forma:
- defina um array de booleanos com cinco elementos, onde cada um representa um botão:
- no fim do OnClick do primeiro botão, acrescente a seguinte linha:
Este código gera o seguinte resultado:
Botoes[0] -> true;
Botoes[1] -> false;
Botoes[2] -> false;
Botoes[3] -> false;
Botoes[4] -> false;
- faça o mesmo com os outros OnClicks, substituindo apenas o índice do array na última linha;
- o último botão pressionado será aquele cujo índice correspondente do array tem valor true. Vc pode verificar depois usando um if.
Dei esta sugestão por não conhecer nenhuma função do Delphi q retorne o último botão pressionado. Espero ter ajudado, abraços.
Vc pode implementar isso da seguinte forma:
- defina um array de booleanos com cinco elementos, onde cada um representa um botão:
Botoes: array[0..4] of boolean;
- no fim do OnClick do primeiro botão, acrescente a seguinte linha:
for i := 0 to 4 do Botoes[i] := false; Botoes[0] := true;
Este código gera o seguinte resultado:
Botoes[0] -> true;
Botoes[1] -> false;
Botoes[2] -> false;
Botoes[3] -> false;
Botoes[4] -> false;
- faça o mesmo com os outros OnClicks, substituindo apenas o índice do array na última linha;
- o último botão pressionado será aquele cujo índice correspondente do array tem valor true. Vc pode verificar depois usando um if.
Dei esta sugestão por não conhecer nenhuma função do Delphi q retorne o último botão pressionado. Espero ter ajudado, abraços.
Responder
Gostei + 0
30/03/2004
Nildo
Voce vai ter que ter uma variavel de controle na secao Private. Por exemplo:
Quando clicar em algum botao (Incluir por exemplo) voce seta essa variavel como ´I´.
Dae no botão Salvar (por exemplo) voce verifica:
Será que isso resolve?
Operacao: char;
Quando clicar em algum botao (Incluir por exemplo) voce seta essa variavel como ´I´.
Dae no botão Salvar (por exemplo) voce verifica:
If Operacao = ´I´ then FazTalCoisa()
Será que isso resolve?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)