Programme autonomeRésolu

Question

Bonjour, 

Je suis débutant en delphi et je voudrais savoir comment je peux, le plus simplement possible, faire afficher un même panel en différentes couleurs qui apparaitraient au bout d'un certain temps marqué dans un edit.
En fait, au début, on clique sur un bouton de mise en marche, on à un panel vert pendant un temps indiqué (dans un edit), puis le panel se transforme en rouge pendant un autre temps indiqué dans un autre edit ...
Est ce possible ?

Merci d'avance

f0xi · Accepted Answer

oui. tout ou presque est possible a faire.

var PassCheck : boolean = false;
    BC        : array[boolean] of Integer = (clGreen,clRed);
    IC        : array[boolean] of Integer = (500,500);

procedure TForm1.Button1Click(Sender : TObject);
begin
  IC[false] := StrToIntDef(Edit1.Text, IC[false]);
  IC[True]  := StrToIntDef(Edit2.Text, IC[true]);
  PassCheck := false;
  Timer1.Interval := IC[PassCheck];
  Timer1.Enabled  := not Timer1.Enabled;
  Panel1.Visible  := Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender : TObject);
begin
  Panel1.Color    := BC[PassCheck];
  PassCheck        := not PassCheck;
  Timer1.Interval := IC[PassCheck];
end;

<hr size="2" width="100%" />Croc (click me)

Valentin_Loupe · Answer

Merci pour la réponse, mais j'ai du mal à "décoder" !!!
Est il possible de télécharger un exemple comme celui ci en source sur le site ?
Merci encore

Programme autonome

2 réponses

Votre réponse

Discussions similaires