Delphi-Quellcode:
public
count: byte;
{ Public declarations }
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
count := 0;
end;
Delphi-Quellcode:
begin
if tquizfragen.FieldByName('L1').AsInteger = 1 then begin
tquizfragen.first;
tquizfragen.moveby(random(tquizfragen.RecordCount));
end else
Form4.Show;
count:= count +1;
case count of
1: begin
Lb_Stufe1.color := clred;
Lb_Stufe15.color := clNone;
end;
2: begin
Lb_Stufe1.color := clred;
Lb_Stufe2.color := clNone;
end;
3: begin
Lb_Stufe2.color := clred;
Lb_Stufe3.color := clNone;
end;
end;
end;
Das Programm soll bei der richtigen frage jeweils immer ein Label weiter nach oben gehen, sich rot färben und den zurückgelassenen -zurück auf
standart setzen.
nur irgendwie will sich hier nix tun, hab noch weitere stufen
LB_Stufe1 bis 15 heißen die Labels,
