Я пытаюсь сделать индикатор выполнения, который начинается с 0% и занимает 5 секунд, чтобы добраться до 100%. Индикатор выполнения начнет расти, как только будет нажата кнопка Button1. Любой совет? Я посмотрел в Google, но это не дало мне ничего хорошего в таких вещах.
Кроме того, при 0% должна быть метка с надписью Waiting..., при запуске индикатора выполнения он должен перейти к Working..., а когда это будет сделано, он должен сказать Done!.
Использование GetTickCount() и инициализация переменных:
uses Windows;
var mseconds, starttime: integer;
procedore TForm1.FormCreate()
begin
starttime := GetTickCount();
mseconds := 0;
Timer1.Enabled := false;
Label1.Caption := '';
ProgressBar1.Position := 0;
Label1.Caption := 'Waiting...';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressBar1.Min := 0;
ProgressBar.Max := 100;
ProgressBar1.Position := 0;
timer1.Enabled := True;
Label1.Caption := 'Working...';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
mseconds := GetTickCount() - starttime;
if mseconds < 5000 then
ProgressBar1.Position := Trunc(mseconds / 50)
else begin
ProgressBar1.Position := 100;
Label1.Caption := 'Done!';
Timer1.Enabled := false;
end;
end;
Вы можете использовать таймер с интервалом 50 и сначала установить для него значение false.
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
const
cnt: integer = 1;
begin
ProgressBar1.Position := cnt;
if cnt = 1 then Label1.Caption := 'Waiting...'
else if cnt = 100 then begin
Label1.Caption := 'Done!';
Timer1.Enabled := False;
end else
Label1.Caption := 'Working...';
Inc(cnt);
end;
