[Débutant] CheckBox1 activé CheckBox2 déactivéRésolu

Question

BOnjour J'aimerai faire en sorte que quand j'active la checkbox1 la checkbox2 se déactive !
Comment Faire???

jlen100 · Accepted Answer

salut

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

checkbox2.Checked:=false;

end;

@+

jlen

dxh_master · Answer

NAN C SI SIMPLE LOL BON merci beaucoup ;)

Cirec · Answer

Salut,
si CheckBox1 et CheckBox2 doivent mutuellement s'&#233;xclure tu peux utiliser &#224; la place des RadioButtons qui ont ce genre de comportement d'office &#224; la seul condition qu'ils aient le m&#234;me parent. Si tu veux absolument conserver tes CheckBoxs dans ce cas c'est la methode de jlen qu'il faut appliquer   
ps: si tu entends par activer & d&#233;sactiver d'&#233;viter que l'utilisateur final puisse cliquer sur CheckBox2 quand CheckBox1 est actif dans ce cas il faut faire ceci:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
checkbox2.Enabled:=false;
end;



@+
Cirec

dxh_master · Answer

en fet sa marche pas bizarr

Cirec · Answer

qu'as tu test&#233; ou est le probl&#232;me

dxh_master · Answer

sa le fait que dans un sens !! et jarrive pas a utiliser les radio

jlen100 · Answer

ou utilise une checklistbox

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);

begin

     if CheckListBox1.ItemIndex=0 then CheckListBox1.Checked[1]:=false;

end;

Cirec · Answer

bon premi&#232;re mise au point
est ce que tu veux que checkbox2 se d&#233;coche o&#249; se d&#233;sactive

dxh_master · Answer

CheckBoxVer2.checked:=false;

Cirec · Answer

apr&#233;s c'est logique on ta donner que le code pour que quand tu cliques sur CheckBox1 la CheckBox2 se d&#233;coche   pour que l'inverse fonctionne aussi il faut rajout&#233; ceci:

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
checkbox1.Checked:=false;
end;

Cirec · Answer

youpiiiiiiiiiiiiiii,
tout c'est mis au vert c'est genial

f0xi · Answer

Cirec est fatigué! utilisation de l'operateur logique (ou operateur booleen) NOT (non) : procedure TForm1.CheckBox2Click(Sender: TObject); begin checkbox1.Checked := NOT checkbox2.Checked; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin checkbox2.Checked := NOT checkbox1.Checked; end; explication pour dxh : l'operateur NOT renvois l'inverse d'une valeur booléene NOT True = False NOT False = True logique! Les autres operateurs tel OR (ou), AND (et), XOR (ou exclusif) peuvent egalement etre appliquer aux operations booléene, d'ou leur nom d'operateurs booléen. NOT True False (0 1)NOT False True (1 0) True OR True True (1 1 1)True OR False True (1 0 1)False OR False False (0 0 0) True XOR True False (1 1 0)True XOR False True (1 0 1)False XOR False False (0 0 0) True AND True True (1 1 1)True AND False False (1 0 0)False AND False False (0 0 0) Retiens bien cela car c'est trés utile et important de le savoir. Cela evite de créer des cascade de "If Then Else" ou de "Case Of". Tu peux manipuler aussi bien les variables que les constantes ou fonction a partir du moment ou elle renvois un type Boolean. Un bel exemple de l'utilisation des operateurs booléen sur ce code source, qui permet de gerer la colision entre deux TRect. Si tu maitrise bien les operateurs booléen, tes programmes seront plus simple et surtout plus performant car il existe peu de cas de mauvaise utilisation de ces operateurs (contrairement aux pointeurs ou aux boucles ou aux conditions). Maintenant tu vas pouvoir souvent utiliser l'operateur NOT dans divers programme. Il s'avere trés utile pour "swaper" (inverser) la valeur d'un booléen. la ou on aurait pu ecrire (inverse la valeur d'une variable) : procedure TForm1.Button1Click; begin case VARBOOL of True : VARBOOL := False; False: VARBOOL := True; end; end; on peu simplement Ecrire : procedure TForm1.Button1Click; begin VARBOOL := NOT VARBOOL; end; A l'identique, on peu traiter toutes les propriétés booléene des composants de cette façon, Enbled, Checked, Visible, Tabstop ect... ect... On peu egalement verifier si toutes les options (checkbox) d'un ensemble sont coché ou non et traiter en fonction du resultat (trés pratique pour verifier si un formulaire est remplis, vallable aussi pour le Web en PHP ou Javascript) : ToutEstRemplis := checkbox1.checked AND checkbox2.checked AND checkbox3.checked; if ToutEstRemplis then PasserALaPageSuivante else ShowMessage('vous devez cocher les 3 options');

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

jlen100 · Answer

belle d&#233;monstration f0xi

Cirec · Answer

Salut f0xi,
oui c'est vrai je suis fatigu&#233; tr&#232;s tr&#232;s fatiqu&#233;   

mais je lui ai donn&#233; un autre methode en priv&#233; (mail) bien plus simple (une seul procedure) &#224; mettre en oeuvre et qui fonctionne peut importe le nombre de checkbox pr&#233;sent sur la form et comme c'est un d&#233;butant je ne voulais pas "l'embrouiller" avec les op&#233;rateurs logiques  mais tu as parfaitement raison de souligner la chose 



@+
Cirec

f0xi · Answer

arf fallait pas poster en PV ... ça peu toujours etre interressant de voir diverses methodes sur des truc aussi "con" si je puis dire. Et pour ce qui est de l'embrouiller avec les OPL, je pense que c'est une base a apprendre dés le depart. au moins pour partir du bon pied. Et qu'il est aussi important, de savoir les manipuler, que de faire des IF, For, While ect... vus qu'ils sont massivement utilisés dans les conditions. Car souvent on fait des methodes super lourde sur quelques variables booléene parce qu'on ne pense pas ou qu'on ne connais tout simplement pas les operateurs logique. ce qui est bien dommage. donc n'ayons pas peur d'embrouiller les debutants avec des mecanismes de bases, en pensant bien que, meme si ils mettent un moment a bien comprendre et assimiler le mecanisme, ce dernier leurs faciliteras la vie et leur permettras d'ecrire plus vite et mieux leurs programme. Y'a pas si longtemps, je faisait encore "ce qu'il ne faut pas faire" et quand je me suis rendus compte que je pouvais placer les OPL dans mes operations booléene, ma premiere reaction a ete de m'auto-insulter de "gros con" pour n'y avoir jamais penser. Et que si je l'avais sus plus tot, ça m'aurais bien aider. un peu comme la declaration initialisation d'une variable globale ... ça m'aurait eviter d'utiliser les CTA dans 90% de mes prog. enfin bref ... pourrait on avoir ta procedure mister Cirec ?

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Cirec · Answer

Bon alors voici un copi&#233; coll&#233; du message que j'ai envoy&#233; &#224; dxh_master

voil&#224; pour 5 CheckBox sur une form num&#233;rot&#233;es de 1 &#224; 5 

tu double cliques dans l'inspecteur d'objet sur CheckBox1 OnMouseDown ce qui va t'ajouter la proc&#233;dure suivante:
procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

que tu compl&#232;tes comme ceci:

procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var i : Integer;
begin
  For I := 1 to 5 do
  With TCheckBox(FindComponent('CheckBox' + IntToStr(I))) Do
  checked := False;
end;

et tu ajoutes aux 4 autres CheckBox (toujours dans l'inspecteur d'objet) dans l'evenement OnMouseDown la m&#234;me procedure en cliquant sur la petite fl&#232;che sur la droite qui t'ouvres la dropdownlist qui contient les proc&#233;dure similaires d&#233;j&#224; d&#233;clarer et c'est tout

en suite tu testes 
&#224; chaque clique sur une des CheckBox les autres se "d&#233;check"

voil&#224; mais sur ce coup l&#224; je ne pense pas t'apprendre quelques chose 

ps : j'aimerai que tu jettes un nouveau coup d'oeil sur ma source de trie pour avoir ton avis par rapport aux nouveaux commentaires de florenth, on a une discution avec avis patag&#233; (ce qui est en soit tr&#232;s bien) mais un avis exterieur serait le bien venu 


@+
Cirec

Cirec · Answer

ps : je pr&#233;cise que le poste en pv &#233;tait &#224; l'initiative de dxh_master ( il ma demand&#233; en priv&#233; j'ai donc r&#233;pondu en priv&#233;) voil&#224; c'est tout



@+
Cirec

Cirec · Answer

h&#233; f0xi tu as bugg&#233; sur ma proc&#233;dure mist&#232;re o&#249; quoi 
o&#249; peut &#234;tre rest&#233; scotch&#233; devant la Star Ac                             quand m&#234;me 

@+
Cirec

jlen100 · Answer

d'apr&#232;s sa fiche il n'est pas devant la star ac mais il a plusieurs fers au feu!!

@+

jlen

Cirec · Answer

bonsoir jlen,
effectivement j'ai  fait la m&#234;me constatation de mon cot&#233;. Au fait elles sont toujours aussi joli tes  cr&#233;ations re chapeau



@+
Cirec

jlen100 · Answer

ce qui va suivre est hors sujet :

contrairement au pr&#233;c&#233;dent ou je m&#233;lange les couleurs directecment
sur la toile pour donner la texture &#224; la peau ici j'ai  utilis&#233;
une technique  assez
proche du pointillisme &#224; l'heure actuelle on dirait pixellisation. Si
tu
peux observer sur la fiche tu pourras constater qu'il n'y a aucun
m&#233;lange de couleur; chaque point &#224; une couleur propre et que le nombre
de couleurs utilis&#233;es et limit&#233; (une dizaine environ &#224; la diff&#233;rence du
pointillisme qui n'utilisait que les couleurs primaire) l'effet est
donn&#233;
par le m&#233;lange que l'oeil fait. L'inconvenient de cette technique c'est
d'&#234;tre longue ( un bon mois pour achever un tableau) ce qui m'oblige &#224;
travailler sur plusieurs toiles simultan&#233;ment.



je m'excuse pour ceux qui n'auraient pas suivit

@+

jlen

Cirec · Answer

ah oui mais re r&#233;sultat est tout simplement g&#233;nial sur une repro un peut plus grande ce serait certainement plus facile &#224; voir mais d&#233;j&#224; l&#224; c'est top tu as un vrai talent 
tu drevrais cr&#233;e un site pour exposer tes oeuvres en ligne &#231;a vaut vraiment le coup



@+
Cirec

jlen100 · Answer

oui je sais mes filles me tannent le cuir pour que je le fasse mais
cela repr&#233;sente un travail &#233;norme et si l'on additionne toutes mes
activit&#233;s 7 vies ne suffiraient pas!! enfin dans 30 ou 40 ans je
l'envisagerai peut-&#234;tre (apr&#232;s tout l'esp&#233;rance de vie physiologique
n'&#233;tait-elle pas de plus de 120 ans 

@+

jlen

Cirec · Answer

Absolument et comme disait l'autre l'espoir fait vivre 
et surtout c'est l'inactivit&#233; qui tue.
Bon plus s&#233;rieusement tes filles ont raisons de te tanner tu as vraiment un potentiel &#233;norme et c'est pas donn&#233; a tout le monde j'en sais quelque chose, ce serait vraiment domage de ne pas faire profiter les autres mais bon &#231;a ne regarde que toi, tu es seul maitre &#224; bord apr&#232;s moi euh Dieu hi hi hi
  



@+
Cirec

f0xi · Answer

procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Var i : Integer; begin For I := 1 to 5 do With TCheckBox(FindComponent('CheckBox' + IntToStr(I))) Do checked := False; end; interressant mais je dirais, mauvaise declaration de la methode (MouseDown) il faut utiliser OnClick, car cela permet un meilleur control de la reaction du a une erreur de click (mousedown et mouseup ne sont pas onclick!) procedure SetChecked(const CBX : array of TCheckBox; const value : boolean = false); var x : integer; begin for x := 0 to high(CBX)-1 do (CBX[x] as TCheckBox).Checked := value; end; procedure TForm1.CheckBox1Click(Sender : TObject); begin SetChecked([checkbox2,checkbox3,checkbox4],not checkbox1.checked); end;

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

f0xi · Answer

et meme : var //globale AllCheckbox : array[0..2] of TCheckBox = (checkbox1,checkbox2,checkbox3); procedure SetChecked(const CBX : array of TCheckBox; const Exclude : TCheckBox; const value : boolean = false); var x : integer; begin for x := 0 to high(CBX)-1 do begin with (CBX[x] as TCheckBox) do if name <> Exclude.name then Checked := value; end; end; // methode Click pour checkbox 1, 2 et 3 procedure TForm1.CheckBoxClick(Sender : TObject); begin SetChecked(AllCheckBox,(Sender as TCheckBox),not checkbox1.checked); end;

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

f0xi · Answer

debugage : // methode Click pour checkbox 1, 2 et 3 procedure TForm1.CheckBoxClick(Sender : TObject); begin SetChecked(AllCheckBox,(Sender as TCheckBox),not (Sender as TCheckBox).checked); end;

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Cirec · Answer

Bien bien,


on en apprend tout les jours, j'avais test&#233; un methode avec OnClick mais le truc &#233;tait parti en boucle du coup j'ai pas cherch&#233; plus loin. Et en plus moins j'&#233;cris de code mieux je me porte . Je ne pense jamais utiliser ce genre de code (le tien o&#249; le mien peut importe) puisque je ne vois pas vraiment l'int&#233;r&#234;t de faire des radiobutton avec des checkboxs, mais &#231;&#224; c'est mon avis personnel. Je vais quand m&#234;me tester ta methode par curiosit&#233;. 

@+
Cirec

Cirec · Answer

Bon f0xi,
il y a comme un os dans ton code !
Delphi n'accepte pas la compilation de ce code 
var //globale
AllCheckbox : array[0..2] of TCheckBox = (checkbox1,checkbox2,checkbox3);

as-tu test&#233; ton code o&#249; tu l'as fait en live ?



@+

Cirec

f0xi · Answer

erf, c'est du pur live. en faite oui on ne peu pas initialisé AllCheckbox ici. il faudrat l'initialisé dans le FormCreate par exemple. mais oublier la variable allcheckbox. elle sert a rien en fait. en plus je viens de tester le code et apparement le fonctionnement est assé etrange. bizare en ce moment aucun de mes codes ne fonctionne correctement ... t'as remarquer ?

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Cirec · Answer

Bah, c'est bient&#244;t No&#235;l et on a tous plein de boules en t&#234;te. En fait moi &#231;a m'arrive tout le temps seulement tu ne le vois pas parce que avant de le poster je le teste syst&#233;matiquement. Mais bon rien de bien dramatique (aucun pc n'a &#233;t&#233; maltrait&#233;). 


@+
Cirec

[Débutant] CheckBox1 activé CheckBox2 déactivé

31 réponses

Votre réponse

Discussions similaires