Fórum duvida simples sobre boolean #203129
27/12/2003
0
eu tenho uma duvida bem idiota
eu sabia como fazer mais já esqueci
é tipo assim
tem um procedure é tipo assim
Botâodomouse(true);
ai o mouse funciona
false ele naum funciona
so que eu não quero fazer dois botões no meu form
um só entende
tipo quando vc clicqa nele ele muda o valor da boolean para o valor contrario
tipo
eu clico no botão e o mouse tava funcionando
e para
eu clico no mesmo botão e ele volta
deu pra entender????
Robotizar
Curtir tópico
+ 0Posts
27/12/2003
Koplin
(a é uma var global boolean)
begin
If a then begin
Button1.caption:=´VERDADEIRO´;
//FAÇA ALGO;
EXIT;
END;
If not a then begin
Button1.Caption:=´FALSO´;
//FAÇA OUTRA COISA;
end;
end;
Se a = true executa o 1º bloco e sai (função exit). Se a = false, executa a segunda parte.
Gostei + 0
27/12/2003
Robotizar
Gostei + 0
27/12/2003
Beppe
SwapMouseButton(True);
Para restaurar:
SwapMouseButton(False);
Gostei + 0
27/12/2003
Koplin
Gostei + 0
28/12/2003
Cebikyn
var VarBool: Boolean; begin ... VarBool := not VarBool; ... end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)