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

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

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

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