Qual comando fico sabendo qual foi o ultimo botao clicado?

Delphi

30/03/2004

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

Fabiomiranda

Curtidas 0

Respostas

Tnaires

Tnaires

30/03/2004

Olá
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.


GOSTEI 0
Nildo

Nildo

30/03/2004

Voce vai ter que ter uma variavel de controle na secao Private. Por exemplo:

   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?


GOSTEI 0
POSTAR