Discussion :

[medkyl]

Bonjour,

Comment gérer la modification utillisateur dans une CheckBox.

Comme dans le cas d'un edit (Onchange).


merci

[ero-sennin]

Salut,

Il faut que tu te bases sur l'événement OnClick :

Code :

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

1
2
3
4
if(CheckBox1.Checked)then
  ShowMessage('Coché')
else
  ShowMessage('Non Coché');

En espérant t'avoir aidé

[sat83]

En utilisant l'événement OnClick de ta CheckBox, et en testant la propriétée Checked pour savoir si l'utilisateur vient de la cocher/décocher.

[anapurna]

salut

si tu as absolument besoin du onchange voici comment l'implémenter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
TCheckBox = class(StdCtrls.TCheckBox)
  FOnChange: TNotifyEvent;
 ...
  procedure Click; override;
  procedure Change;
  property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
 
procedure TCheckBox.Click; 
begin
   Inherited Click;
   Change;
end;
 
procedure TCheckBox.Change;
begin
  if Assigned(FOnChange) then FOnChange(Self);
end;

@+ Phil

[sjrd]

Pour info : le OnClick se déclenche aussi si l'utilisateur modifie le check box avec la barre espace, son raccourci clavier, ou toute autre chose du genre

si tu as absolument besoin du onchange voici comment l'implémenter

Ca change quoi par rapport à OnClick ?

[anapurna]

salut

ça ne change rien sauf si tu veut uniformiser les actions sur les différents composant sans les connaitre a l'avance

@+ Phil

[edam]

Pour info : le OnClick se déclenche aussi si l'utilisateur modifie le check box avec la barre espace, son raccourci clavier, ou toute autre chose du genre

aussi avec programme

Code :

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

cheche.checked:=True;

[medkyl]

Merci à tous pour vos messages.

Mon message n'était pas assez clair,
en faites je voulais savoir :
la modification utilisateur et la modification par le code.
Car à l'ouverture de ma fiche OnClick se declenchait
je m'en suis sortis avec ce code
merci

Code :

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

1
2
3
 
 OnEnter
   TCheckBox(Sender).Tag:= 2;