Скачать: CL | DM;

ProgresBar   Найти похожие ветки 

← →
Sago   (2002-10-07 13:22) [0]

Привет мастера!
Подскажите пожалуйсто как обмануть юзера?
Т.е. По нажатию кнопочки запускается прогресБар
(ProgresBar) наверное по таймеру, и заканчивается по нажатию другой кнопочки.
Помогите пожалуйсто, Мастера,пожалуйсто не откажите бедному
новечку маленьким кодиком.
Заранее благодарен.

---

← →
V-A-V   (2002-10-07 13:40) [1]

А поконкретнее можно....
Где нажимается кнопка и зачем ее надо нажимать и т.п.
А то очень непонятно задан вопрос....

---

← →
Reindeer Moss Eater   (2002-10-07 13:41) [2]

И еще почему при всем этом юзер оказывается обманутым?

---

← →
Кот Бегемот ©   (2002-10-07 13:57) [3]

Юзеров обманывать нехорошо :)

> пожалуйсто не откажите бедному новечку c маленьким кодиком.

Тьфууу...

---

← →
Рыжик ©   (2002-10-07 14:44) [4]

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

procedure TForm1.Timer1Timer(Sender: TObject);
const N=4;{N должно быть >0. Определяет, с какой скоростью начинает ползти}
var i:integer;
begin
i:=ProgressBar1.Tag;
inc(i);
ProgressBar1.Position:=trunc(100*(i/(i+N)));
{чем дальше, тем медленне ползёт,- и никогда не доползёт}
ProgressBar1.Tag:=i;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

Изначально свойства у ProgressBar1: Min=0, Max=100, Position=0, Tag=0

---

← →
Кот Бегемот ©   (2002-10-07 15:48) [5]

Рыжик - Вы прелесть :)

---

← →
Юрий Зотов ©   (2002-10-08 01:24) [6]

Теперь я знаю, какого цвета клавиша F1. Рыженькая такая...
:о)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c