aide sur checkbox

bonjour a tous
Voici ma question
comment avec un checkbox cochez a true je peu lancer un ttimer
merci d'avance de vos reponse

Bonjour

Tout simplement en réagissant sur le OnClick du CheckBox:
Code:

1 2 3 4 procedure TForm1.CheckBox1Click(Sender: TObject); begin Timer1.Enabled := TCheckBox(Sender).Checked; end;
@+ Claudius

Je te remerci beaucoup
je cherche plus compliqué que ca

salut,

apprentinovice pourquoi veux tu faire plus compliquer en ne connaissant pas le fonctionnement du Tcheckbox. :roll:

Code:

1
2
3
4
5
6
7
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked  then //si checkbox1 et cocher alors timer1
      begin
    Timer1.enabled:= true;
  end;
end.

ou si tu veux gerer le checkbox

Code:

1
2
3
4
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked=True then //si true alors lance le timer si false alors Timer1.enabled:= false;
   Timer1.enabled:= true;

A+ ;)

Salut shell13010,

Je ne comprends pas la différence entre les deux codes que tu as posté :roll:

Que tu fasse Checked ou Checked = true, ca revient au même ;)
Par contre, dans aucun cas tu gères le fait que si l'on décoche la case, le timer s'arrête ;)

A+

Je crois surtout qu'il s'agit d'une faute de typo :

Citation:

je cherche pas plus compliqué que ca

;)

salut ero-sennin,

bin en faite oui c'est vrai tu as raison mais sa peut marcher comme sa

dans le 2 code Checked = True je penser au retour qui et false donc par

exemple Checked = False alors on arrete le timer donc voila se que j'ai tester:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm2.CheckBox1Click(Sender: TObject); begin if CheckBox1.checked=True then //si cocher alors edit1 et innoperant begin Timer1.enabled:=False; end else begin if CheckBox1.checked=False then //si decocher alors edit1 normal Timer1.enabled:= true; end; end; end.
biensur il y a plus simple mais bon,c'est comme sa qu'on apprend ;)

Edit:désoler pour le double poste :oops: j'ai fait une mauvaise manip...

Salut,

Citation:

Envoyé par Aka Guymelef

Je crois surtout qu'il s'agit d'une faute de typo :

Citation:

je cherche pas plus compliqué que ca

;)

Oui, ou encore :

Citation:

je cherchais plus compliqué que ça

:mrgreen:
Citation:
Envoyé par shell13010
salut ero-sennin,

bin en faite oui c'est vrai tu as raison mais sa peut marcher comme sa

dans le 2 code Checked = True je penser au retour qui et false donc par

exemple Checked = False alors on arrete le timer donc voila se que j'ai tester:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm2.CheckBox1Click(Sender: TObject); begin if CheckBox1.checked=True then //si cocher alors edit1 et innoperant begin Timer1.enabled:=False; end else begin if CheckBox1.checked=False then //si decocher alors edit1 normal Timer1.enabled:= true; end; end; end.
biensur il y a plus simple mais bon,c'est comme sa qu'on apprend ;)

Edit:désoler pour le double poste :oops: j'ai fait une mauvaise manip...
Ah d'accord. C'est qu'en fait, tu n'avais mis qu'une portion de code dans ton post précédent alors. Je n'avais pas compris cela comme ça :)