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.