Discussion :

[basteo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edam]

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

[basteo]

Bonjour

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

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

[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.

[edam]

un bricolage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Gaadek]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^^

[Matt2094]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;