duvida simples sobre boolean
oi
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????
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
Curtidas 0
Respostas
Koplin
27/12/2003
Tente adequar o disposto abaixo para o que vc precisa:
(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.
(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
Robotizar
27/12/2003
mais existe um comando do delphi q já inverte uma função
GOSTEI 0
Beppe
27/12/2003
Para inverter:
Para restaurar:
SwapMouseButton(True);
Para restaurar:
SwapMouseButton(False);
GOSTEI 0
Koplin
27/12/2003
Aprendi mais uma!
GOSTEI 0
Cebikyn
27/12/2003
var VarBool: Boolean; begin ... VarBool := not VarBool; ... end;
...ele muda o valor da boolean para o valor contrario...
GOSTEI 0