hallo
ich will eine einfach stoppuhr machen bin grade erst bei den sekunden bis 9, aber ich habe keine imagelist. weil ich das nicht verstehe ich wollte es folgendermaßen machen:
immer wenn das bild mit der 1 ist und der timer den impuls sendet soll 1-visible false gehen und 2 dafür an. Wenn das bild 2 da ist soll das unsichtbar werden und 3 sichtbar usw...
Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true ;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Image10.Visible:=true
then begin
Image10.Visible:=false;
Image1.Visible:=true;
end;
if Image1.Visible:=true
then begin
Image1.Visible:=false;
Image2.Visible:=true;
end;
if Image2.Visible:=true
then begin
Image2.Visible:=false;
Image3.Visible:=true;
end;
if Image3.Visible:=true
then begin
Image3.Visible:=false;
Image4.Visible:=true;
end;
if Image4.visible:=true
then begin
Image4.Visible:=false;
Image5.Visible:=true;
end;
if Image5.visible:=true
then begin
Image5.Visible:=false;
Image6.Visible:=true;
end;
if Image6.visible:=true
then begin
Image6.Visible:=false;
Image7.Visible:=true;
end;
if Image7.visible:=true
then begin
Image7.Visible:=false;
Image8.Visible:=true;
end;
if Image8.visible:=true
then begin
Image8.Visible:=false;
Image9.Visible:=true;
end;
if Image9.visible:=true
then begin
Image9.Visible:=false;
Image10.Visible:=true;
end;
end;
In jeder zeile mit "then begin" kommt der fehler: Type of expression must be boolean