Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

progress bar


azot ©   (2006-10-24 16:45:00) 

каким образом можно заставить прогресс бар  (при нажатии на кнопку) медлено заполняться, и когда заполнится до конца выводица определённый текст и значения прогрес бара сбрасываются?


Джо   (2006-10-24 16:58:00) [1]

>
>
> [11] Сергей М. ©   (24.10.06 16:56)
>
> > Джо ©   (24.10.06 16:54) [6]
>
>
> Зачет по телепатии ты сдал)

Всего лишь буквально переложил [0] в код :)


Anatoly Podgoretsky   (2006-10-24 16:56:00) [2]


> а серьёзно?

Думаешь мы шутим, тогда ты сайтом ошибся.


azot   (2006-10-24 16:56:00) [3]

всё, разобрался, спасибо всем!


Сергей М.   (2006-10-24 16:56:00) [4]


> Джо ©   (24.10.06 16:54) [6]


Зачет по телепатии ты сдал)


Elen   (2006-10-24 16:55:00) [5]


> azot

На вкладке System


Сергей М.   (2006-10-24 16:55:00) [6]


> а серьёзно?


"медленно" или "быстро" - оно имеет отношение ко времени.
Время (временной интервал) имеет отношение к таймеру.
Дальше будешь чесать репу сам ?)


Джо   (2006-10-24 16:54:00) [7]

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
begin
 for I := ProgressBar1.Min to ProgressBar1.Max do
 begin
   ProgressBar1.Position := I;
   Sleep(100);
 end;
 ShowMessage ('Определенный текст');
 ProgressBar1.Position := ProgressBar1.Min
end;


azot   (2006-10-24 16:53:00) [8]

а где найти таймер?


Elen   (2006-10-24 16:52:00) [9]


> azot

В таймере


Anatoly Podgoretsky   (2006-10-24 16:51:00) [10]

По таймеру, в нем регулируешь степень медленности.
Позиция управляется через одноименное свойство
Вывод текста к этому совсем не относится, но делается многими сотнями способов.


azot   (2006-10-24 16:51:00) [11]

а серьёзно?


Сергей М.   (2006-10-24 16:45:00) [12]

под пытками


Наверх

Титульная страница Поиск, карта сайта Написать письмо