Текущий архив: 2003.12.26;
Скачать: CL | DM;

Вниз

Прогресс   Найти похожие ветки 

← →
Ivolg   (2003-12-14 17:06) [0]

Помогите пожалуйста!Как отобразить прогресс выполнения какого то действия с помощью gauge или progressbar"а!

---

← →
Ig   (2003-12-14 19:23) [1]

procedure TForm1.Button1Click(Sender: TObject);
Var
i:integer;
begin
ProgressBar1.Max:=100000;
ProgressBar1.Position:=0;
i:=0;
For i:=1 to 100000 do
begin
ProgressBar1.Position:=i;
Application.ProcessMessages;
end;
end;

---

← →
Ivolg   (2003-12-15 09:49) [2]

Спосибо!А как зделать отображения pendialog"а,когда открываешь файл
то иго загрузка отображыется в прогрессбар"е или Gauge?Еще раз спосибо!

---

← →
ЮЮ ©   (2003-12-15 09:56) [3]

if OpenDialog.Execute then begin
ProgressBar1.Max := <размер файла>;
ProgressBar1.Position:=0;
...
после считывания N байт
ProgressBar1.Position := ProgressBar1.Position + N;
Application.ProcessMessages;
...
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c