Arbeiten mit Timer

[delphi-projekt]

Also die checkboxen sollen nacheinander geschalten werden. ABER
beispielsweise

gibt man in das erste edit feld 10 sekunden ein dann sollen (für 10s) 3 bestimmte checkboxen checked sein.
...

Geht das da genauso wie ihr mir das geschrieben habt oder muss ich nun was anderes beachten?
Reicht da genauso ein timer oder muss ich nun mehrere setzen?

[Jens Hartmann]

Das kannst Du von der Sache her genauso machen.

in etwa so..

Delphi-Quellcode:

zB. Button.Click oder irgendwas anderes als Start... 

begin 
  Timer1.Interval := 1000 * StrToInt(Edit1.Text);  //Zeit dem Timer 1 zuweisen 
  Timer2.Interval := 1000 * StrToInt(Edit2.Text);  //Zeit dem Timer 2 zuweisen 
  //Timer xyz etc. setzten. Hier könntest Du schon allen Timer einen Interval zuweisen.

  Timer1.Enabled := True; 

  CheckBox1.Checked := True; 
  CheckBox2.Checked := True; 
  CheckBox3.Checked := True; 
  CheckBox4.Checked := True; 
end;

//usw......

[delphi-projekt]

irgendwie klappt das noch nicht so richtig bei mir schaut euch mal meinen quelltext an und sagt mir was der fehler ist. ich starte das programm und eigendlich ist nur cbStrobe.checked:=true; sobald ich eine zahl in mein edit eintrage sind plötzlich alle checkboxen checked ich habe keine ahnung
wie ich das ändern kann.

Bitte helft mir

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var b:byte; i:integer;
begin
Timer1.Interval := 1000* StrToInt(Edg.Text);
Timer2.Interval := 1000* StrToInt(Edr.Text);
Timer3.Interval := 1000* StrToInt(Edl.Text);
Timer4.Interval := 1000* StrToInt(Edrw.Text);
Timer1.Enabled:=True;
cbStrobe.checked:=true;
cbData1.checked:=false ;
cbData5.checked:=false;
cbData3.checked:=false;
cbData7.checked:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
cbStrobe.checked:=false;
cbData1.checked:=false ;
cbData5.checked:=true;
cbData3.checked:=true;
cbData7.checked:=true;
Timer1.Enabled:=false;
Timer2.Enabled:=True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
cbData1.checked:=true;
cbData5.checked:=false;
cbStrobe.checked:=false;
Timer2.Enabled:=false;
Timer3.Enabled:=true;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var i:integer;
begin
cbData1.checked:=true;
cbData5.checked:=true;
cbData7.checked:=false;
cbStrobe.checked:=false;
Timer3.Enabled:=false;
Timer4.Enabled:=true;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
var i:integer;
begin
cbData1.checked:=true;
cbData5.checked:=true;
cbData7.checked:=true;
cbData3.checked:=false;
cbStrobe.checked:=false;
end;
end.