CheckBox
Résolu
m_cyril1
Messages postés
59
Date d'inscription
mercredi 30 mars 2005
Statut
Membre
Dernière intervention
3 juin 2005
-
27 avril 2005 à 14:31
jmp77 Messages postés 1119 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 4 octobre 2006 - 27 avril 2005 à 16:40
jmp77 Messages postés 1119 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 4 octobre 2006 - 27 avril 2005 à 16:40
6 réponses
jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
27 avril 2005 à 15:22
27 avril 2005 à 15:22
Hello,
Tiens essayes comme ceci ca marche beaucoup mieux :
procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox1.Checked and checkbox2.checked then
begin
showmessage('1=1 et 2=1')
end
else if checkbox1.Checked and not(checkbox2.checked) then
begin
showmessage('1=1 et 2=0')
end
else if not(checkbox1.checked) and checkbox2.checked then
begin
showmessage('1=0 et 2=1')
end
else
begin
showmessage('1=0 et 2=0')
end;
end;
Ou sinon comme cela :
procedure TForm1.Button1Click(Sender: TObject);
begin
if (checkbox1.Checked=true) and (checkbox2.checked=true) then
begin
showmessage('1=1 et 2=1')
end
else if (checkbox1.Checked=true) and (checkbox2.checked=false) then
begin
showmessage('1=1 et 2=0')
end
else if (checkbox1.checked=False) and (checkbox2.checked=true) then
begin
showmessage('1=0 et 2=1')
end
else
begin
showmessage('1=0 et 2=0')
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.
Tiens essayes comme ceci ca marche beaucoup mieux :
procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox1.Checked and checkbox2.checked then
begin
showmessage('1=1 et 2=1')
end
else if checkbox1.Checked and not(checkbox2.checked) then
begin
showmessage('1=1 et 2=0')
end
else if not(checkbox1.checked) and checkbox2.checked then
begin
showmessage('1=0 et 2=1')
end
else
begin
showmessage('1=0 et 2=0')
end;
end;
Ou sinon comme cela :
procedure TForm1.Button1Click(Sender: TObject);
begin
if (checkbox1.Checked=true) and (checkbox2.checked=true) then
begin
showmessage('1=1 et 2=1')
end
else if (checkbox1.Checked=true) and (checkbox2.checked=false) then
begin
showmessage('1=1 et 2=0')
end
else if (checkbox1.checked=False) and (checkbox2.checked=true) then
begin
showmessage('1=0 et 2=1')
end
else
begin
showmessage('1=0 et 2=0')
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.
