Discussion :

[Shredder]

salut,

J'ai un petit soucis avec les checkbox.

En fait mon programme doit effectuer une opération lorsque l'on coche un checkbox, donc j'ai déclaré un événement dans OnClick, mais le soucis est qu'on peut cocher le checkbox sans passer par le onclick, donc si l'utilisateur venait a appuyer sur espace pour cocher la case, alors l'action ne s'effectuerait pas.

n'y a-t-il pas un événement du genre OnCheck ?

j'ai pensé faire dans le OnKeyDown ceci :

Code :

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

1
2
if (key=VK_SPACE)then
  OnClick(nil);

et cela semble marcher, mais il y a peut etre plus simple non ?

[edam]

, chez moi sa marche!!!!!!

[andreditdd]

Ben moi je viens de tester ça et ça fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then Label1.Caption := 'ok'
else Label1.Caption := 'Pas ok';
end;
 
procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if CheckBox1.Checked then Label1.Caption := 'ok'
else Label1.Caption := 'Pas ok';
end;

André

[evarisnea]

En fait mon programme doit effectuer une opération lorsque l'on coche un checkbox, donc j'ai déclaré un événement dans OnClick, mais le soucis est qu'on peut cocher le checkbox sans passer par le onclick, donc si l'utilisateur venait a appuyer sur espace pour cocher la case, alors l'action ne s'effectuerait pas.

n'y a-t-il pas un événement du genre OnCheck ?

en complément à ce qui a été dit, je me permet de citer l'aide de delphi sur l'évènement Onclick d'un TControl, duquel dérive le TCheckBox :

Utilisez le gestionnaire d'événement OnClick pour répondre quand l'utilisateur clique sur le contrôle.Si le contrôle comprend une action associée et que l'action a une méthode OnExecute,cette méthode répond aux événements de clic de la souris sauf si elle est remplacée par un gestionnaire d'événement OnClick.

Généralement,OnClick se produit quand l'utilisateur appuie puis relâche le bouton gauche de la souris alors que le pointeur de la souris est au-dessus du contrôle.Cet événement peut également se produire si :

L'utilisateur sélectionne un élément dans une grille,une arborescence,une liste ou une boîte àoptions en appuyant sur une touche de direction.

• L'utilisateur appuie sur Espace lorsqu'un bouton ou une case àcocher détient la focalisation.
• L'utilisateur appuie sur Entrée dans une fiche active contenant un bouton par défaut (spécifiépar la propriétéDefault).
• L'utilisateur appuie sur Echap dans une fiche active contenant un bouton d'annulation (spécifiépar la propriétéCancel).
  
• L'utilisateur appuie sur la touche de raccourci d'un bouton ou d'une case àcocher.Si,par exemple,la valeur de la propriétéCaption d'une case àcocher est '&Gras',le G est soulignéàl'exécution et l'événement OnClick de la case àcocher est déclenchési l'utilisateur appuie sur Alt+G.
• La valeur true est affectée àla propriétéChecked d'un bouton radio.
• La valeur de la propriétéChecked d'une case àcocher est modifiée.
• La méthode Click d'un élément de menu est appelée.

un petit tour dans l'aide de delphi t'aurait donc certainement été bénéfique

[Shredder]

merci pour vos réponses

en fait pour revenir sur le code de andreditdd, cela est tout bete oui, mais par exemple, si je veux incrémenter une variable, a chaque fois que la case est cochée, alors dans le OnKeyDown, si j'ai le checkbox de sélectionné, et de coché, alors si je maintiens la touche "A" enfoncée, alors la variable va s'incrémenter sans cesse.

enfin en effet, evarisnea, dans l'aide il y avait a peu près ce que je recherche

merci encore ++