Четверг, 28.03.2024, 14:55 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delphicode » Delphi » Компоненты Delphi » Работа с поргрес бар (D7)
Работа с поргрес бар
dolphinДата: Пятница, 24.04.2009, 20:29 | Сообщение # 1
Администратор
Сообщений: 906
Статус: Offline
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max;
ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position > 100 then
begin
ShowMessage('Всё');
end;
end;


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
JawДата: Вторник, 28.04.2009, 21:39 | Сообщение # 2
Участник
Зарегистрирован: 09.03.2009
Группа: Пользователи
Сообщений: 70
Статус: Offline
Так неработает(Т.Е. Cообшение невыводит) :
Quote
if ProgressBar1.Position > 100 then

Работает так:
Code
if ProgressBar1.Position = 100 then
 
dolphinДата: Четверг, 30.04.2009, 21:52 | Сообщение # 3
Администратор
Сообщений: 906
Статус: Offline
Спасибо, я сам не проверял...

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delphicode » Delphi » Компоненты Delphi » Работа с поргрес бар (D7)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz