Метод работы с Case

[m1zantrop]

Хочу прикрепить к форме таймер с прогресбаром. Так же присудствует комбобокс. Хочу сделать так В комбобоксе выбираешь через сколько минут закрыть. например 5 это задаёт переменной i:=300; если делять то 600. в секундах. в общем толи я что то не так делаю, но у меня чтобы я не присваивал i всё равно = 300.

в общем вот код:

procedure TForm1.Timer1Timer(Sender: TObject);
var j: integer;
begin
i:=i-1;
Label1.Caption:='У вас осталось '+inttostr(i)+' секунд';
ProgressBar1.Position:=i;
if i=0 then
begin
Timer1.Enabled:=false;
j:=Form2.ShowModal;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
Case ComboBox1.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

end.

[kta87]

поместите

Case ComboBox1.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;

в процедуру

procedure TForm1.Timer1Timer(Sender: TObject);

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
end;
Timer1.Enabled:=true;
end;

[Кольша]

или в onchange у ComboBox1

[m1zantrop]

Сообщение от kta87

поместите

Case ComboBox1.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;

в процедуру

procedure TForm1.Timer1Timer(Sender: TObject);

теперь у меня отчет идёт от -1 и уходит в минус. а должен от суммы которая была присвоена i и до 0

[Кольша]

Выше на пост посмотрите!

[m1zantrop]

Сообщение от BDA

procedure TForm1.Button1Click(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
end;
Timer1.Enabled:=true;
end;

спасибо, заработало

еще вопрос, как туда влепить, что если i:=300; то
ProgressBar1.Max:=300;
ProgressBar1.Min:=0;

если i:=600; то

ProgressBar1.Max:=600;
ProgressBar1.Min:=0;

в общем чтобы прогресбар шел в ногу со временем, а не как ему вздумается

[Кольша]

Case ComboBox1.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
end;
ProgressBar1.Max:=i;
ProgressBar1.Min:=0;

[m1zantrop]

Сообщение от Кольша

Case ComboBox1.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
end;
ProgressBar1.Max:=i;
ProgressBar1.Min:=0;

спасибо

всем спасибо)

извеняюсь за глупые вопросы

[m1zantrop]

хотя всё таки не красиво смотрится что осталось 300 секунд. Как сделать, чтобы было допустим "Осталось 2 минуты и 34 секунды?" Чтобы он складывал 60 секунд в минуту

procedure TForm1.Timer1Timer(Sender: TObject);
var j: integer;
begin
i:=i-1;
Label1.Caption:='У вас осталось '+inttostr(i)+' секунд';
ProgressBar1.Position:=i;
if i=0 then
begin
Timer1.Enabled:=false;
j:=Form2.ShowModal;
end;