Discussion :

[apprentinovice]

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

[Cl@udius]

Bonjour

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

Code :

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

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

@+ Claudius

[apprentinovice]

Je te remerci beaucoup
je cherche plus compliqué que ca

[shell13010]

salut,

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

Code :

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

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 :

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

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+

[ero-sennin]

Salut shell13010,

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

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+

[Aka Guymelef]

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

je cherche pas plus compliqué que ca

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

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

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 j'ai fait une mauvaise manip...