Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ProgresBar [D5, Win95/98]

Sago © (2002-10-07 13:22:00)
Привет мастера!
Подскажите пожалуйсто как обмануть юзера?
Т.е. По нажатию кнопочки запускается прогресБар
(ProgresBar) наверное по таймеру, и заканчивается по нажатию другой кнопочки.
Помогите пожалуйсто, Мастера,пожалуйсто не откажите бедному
новечку маленьким кодиком.
Заранее благодарен.

Юрий Зотов (2002-10-08 01:24:00) [1]
Теперь я знаю, какого цвета клавиша F1. Рыженькая такая...
:о)

Кот Бегемот (2002-10-07 15:48:00) [2]
Рыжик - Вы прелесть :)

Рыжик (2002-10-07 14:44:00) [3]
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 13:57:00) [4]
Юзеров обманывать нехорошо :)

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

Тьфууу...

Reindeer Moss Eater (2002-10-07 13:41:00) [5]
И еще почему при всем этом юзер оказывается обманутым?

V-A-V (2002-10-07 13:40:00) [6]
А поконкретнее можно....
Где нажимается кнопка и зачем ее надо нажимать и т.п.
А то очень непонятно задан вопрос....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »