Fórum Um botão e duas funções #233074
19/05/2004
0
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?
É 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
Curtir tópico
+ 0
Responder
Posts
19/05/2004
Nildo
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
Responder
Gostei + 0
19/05/2004
Alexscar
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
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
Responder
Gostei + 0
19/05/2004
Paulo_amorim
Olá
Pode-se verificar o OnClick
if btn.OnClick = Func1 then
begin
btnOnClick := Func2;
end
else
begin
btnOnClick := Func1;
end;
btn.Click;
Até+
Pode-se verificar o OnClick
if btn.OnClick = Func1 then
begin
btnOnClick := Func2;
end
else
begin
btnOnClick := Func1;
end;
btn.Click;
Até+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)