Hallo ich habe folgendes Problem ich würde gerne bestimmte checkboxen ansprechen, aber nur
für eine bestimmte Zeit und die sollen alle nacheinander checked sein irgendwie klappt das aber nicht sagt mir mal bitte was an meinem quelltext falsch ist.
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;
Timer2.Enabled:=True;
Timer3.Enabled:=True;
Timer4.Enabled:=True;
for i:=1 to timer1.interval do
begin
cbData3.checked:=true;
cbData5.checked:=true;
cbData7.checked:=true;
end;
for i:=timer1.interval to Timer2.Interval do
begin
cbData1.checked:=true;
cbData3.checked:=true;
cbData7.checked:=true;
end;
for i:=Timer2.Interval to Timer3.Interval do
begin
cbData1.checked:=true;
cbData3.checked:=true;
cbData5.checked:=true;
end;
for i:=Timer3.Interval to Timer4.Interval do
begin
cbData1.checked:=true;
cbData5.checked:=true;
cbData7.checked:=true;
end;
end;
end.