Цитата:
|
Сообщение от DelphiM0ZG
Там на кнопке "Далее" нужно добавить код:
Код:
STQutest.Caption:=IntToStr(i+1) + '/' + IntToStr(QList.Count);
TrackBar1.Position:=TrackBar1.Position+1;
А на кнопку "Начать" тест, нужно дописать код:
Код:
STQutest.Caption:=IntToStr(1) + '/' + IntToStr(QList.Count);
TrackBar1.Position:=0; |
Cпасибо, я уже справился с задачей))