Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c