Hallo!
In meinem Programm möchte ich einen Prozess 20 mal durchlaufen lassen. - Deshalb habe ich eine Schleife erstellt (wie unten nachgestellt). Während dem Durchgang sollte das Programm eine kurze Pause einlegen. In dieser Zeit soll der Benützer ein EditFeld ausfüllen können.
Danach soll die Schleife ungestört weiterlaufen und den Timer bei jeden Durchgang aktivieren.
Ich hoffe ihr könnt mir helfen.
Delphi-Quellcode:
procedure TForm1.Start1Click(Sender: TObject);
var
I: integer;
begin
For I := 1 to 20 do begin
Fragestellung();
// -> [b]Hier möchte ich den Timer aktivieren[/b] <-
Edit1.Visible:= false;
if Edit1.Text = Label1.caption then
begin
RoderF.Font.Color:= clgreen;
RoderF.Caption:= 'Richtig!!!';
end else begin
RoderF.Font.Color:= clred;
RoderF.Caption:= 'Leider falsch!';
end;
Label1.Visible:= true;
Label1.Visible:= false;
Label2.Visible:= true;
end;
showmessage('Das Spiel ist beendet');
lb_green.Caption:= '';
lb_blue.Caption:= '';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
end;
DANKE !!
[edit=Sharky]Pre-Tags eingefügt. Mfg, Sharky[/edit]
[edit=mkinzler]Delphi-Tag ist besser, da Fettschrift bei Pre auch nicht funktioniert Mfg, mkinzler[/edit]