Checkbox - validation conditionnelle

Bonjour

Je voudrais mettre une condition sur l'activation ou la désactivation d'une checkbox.
Pour cela, j'ai commencé par implémenter l'évènement [OnClick] et dedans je défini un bout de code du style :

Code:

---

1 2 3

if (MyCheckBox.checked) and (Application.MessageBox('Etes-vous sure ?','',MB_OKCANCEL)=IDOK) then MyCheckBox.Checked = false;

---

Le problème est que lorsque je décoche (ou recoche) ma checkbox, l'évènement se reproduit. Quelqu'un saurait-il comment contourner ce problème et modifier l'état de la checkbox SANS déclencher l'évènement ?

Merci d'avance
Basteo

autre astuce; met le chekbox sur une panel, et selon ton choix change le enable du panel ;)

Tu pourrais par exemple, créer un Boolean en globale. Ensuite, dans ton code, tu teste si sa valeur est positive ou négative, et si elle est positive, tu execute ton code (et tu affecte false à ta variable bien sûr !). Ca devrait faire quelque chose de ce genre :

Code:

---

1 2 3 4 5

if (MyCheckBox.checked) and (Application.MessageBox('Etes-vous sure ?','',MB_OKCANCEL)=IDOK) and (TaVariable=false) then begin MyCheckBox.Checked = false; TaVariable:=true; end;

---

Bonjour

J'ai mal choisi mes termes au début du texte :oops: : ce n'est pas activé/désactivé mais plutôt coché/décoché ma checkbox.:lol:

Donc, au final, je voudrais pouvoir demander à l'utilisateur s'il désire oui ou non valider son choix de coché/décoché la checkbox.

Merci pour la rapidité :)
Basteo

ARGH !! Même si j'aimais pas trop l'idée d'une variable globale pour ça, ça paraissait sympa, mais en fait l'idée ne fonctionne pas.

Tout se passe comme si l'évènement onClick attendait d'avoir fini de se déroulé pour placer la case à cocher dans l'état demandé lors de l'action onclick.

Je trouve ça dommage qu'il n'y ai pas une méthode qui permette de valider ou non le choix de l'utilisateur (un peut comme les OnChange et OnChanging d'un PageControl).


Basteo.

un bricolage

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.CheckBox2Click(Sender: TObject); var b:boolean; begin b:=CheckBox2.Checked; if not b then exit; CheckBox2.OnClick:=nil; CheckBox2.Checked:=not b; if (b) and (Application.MessageBox('Etes-vous sure ?','',MB_OKCANCEL)=IDOK) then begin CheckBox2.Checked:=b; end; CheckBox2.OnClick:=CheckBox2Click; end;

---

Une façon peut-être plus élégante de le faire: utiliser l'événement OnMouseDown du contrôle:

Code:

---

1 2 3 4 5

procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Application.MessageBox('Etes-vous sur ?','',MB_OKCANCEL)=IDOK) then CheckBox1.checked := not CheckBox1.checked; end;

---

Avantage: ça fonctionne parfaitement

Inconvénient: si on click sur le label de la checkbon, l'événement est généré. De plus, le contrôle ne réagit plus aux événements du clavier... On peut contourner le problème en gérant également l'événement OnKeyPress, mais ça devient vite le bordel ^^

il veut que la tchekbox ne change d'etat qu'aprés confirmation pas aprés

Citation:

---

Envoyé par edam

il veut que la tchekbox ne change d'etat qu'aprés confirmation pas aprés

---

J'ai rien compris à ce commentaire :?

Et si cela concerne mon code, il fonctionne, je l'ai testé avant de poster...

Bonjour

Merci Gaadek, ton code fonctionne :D

Et encore merci à tout le monde pour son aide.

Basteo

A mettre dans le Onclick du checkbox.

Code:

---

1 2 3 4 5 6

if (not TCheckBox(Sender).checked) then case (Application.MessageBox('Etes-vous sure ?','',MB_OKCANCEL)) of IDOK : TCheckBox(Sender).Checked := false; IDCANCEL : TCheckBox(Sender).Checked := True; end;

---