Um botão e duas funções

Delphi

19/05/2004

Olá,

É o seguinte: tenho 2 funções e gostaria que fossem chamadas pelo mesmo botão: quando clicar no botão chama a primeira, quando clicar outra vez no mesmo botão chama a segunda.

Alguém pode me ajudar?


Oquendo

Oquendo

Curtidas 0

Respostas

Nildo

Nildo

19/05/2004

Evento OnClick do botao:

if TButton( Sender ).Tag = 0 then
begin
   TButton( Sender ).Tag := 1;
   ChamaFuncao1();
end
else
begin
   TButton( Sender ).Tag := 0;
   ChamaFuncao2();
end



GOSTEI 0
Alexscar

Alexscar

19/05/2004

Gostaria de saber o motivo de se fazer isso, mas tudo bem, o que vc pode fazer é ´controlar´ esses cliques.
Utilize variaveis, por exemplo, uma do tipo boolean que a cada funcao chamada, troque o seu valor

variavel := not(variavel); //troca o valor de true p/ false e vice-versa
if variavel = true then
chame a funcao
else
chame a outra funcao



Blz?

alexscar@uol.com.br


GOSTEI 0
Paulo_amorim

Paulo_amorim

19/05/2004

Olá

Pode-se verificar o OnClick

if btn.OnClick = Func1 then
begin
btnOnClick := Func2;
end
else
begin
btnOnClick := Func1;
end;

btn.Click;

Até+


GOSTEI 0
POSTAR