|
dolphin
|
Дата: Пятница, 24.04.2009, 20:29 | Сообщение # 1
|
Администратор
Сообщений: 904
Статус: 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, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
Jaw
|
Дата: Вторник, 28.04.2009, 21:39 | Сообщение # 2
|
Участник
Зарегистрирован: 09.03.2009
Группа: Пользователи
Сообщений: 70
Статус: Offline
|
Так неработает(Т.Е. Cообшение невыводит) :
Quote
if ProgressBar1.Position > 100 then
Работает так:
- <span class="ucoz-forum-post" id="ucoz-forum-post-603" edit-url="">if ProgressBar1.Position = 100 then</span>
if ProgressBar1.Position = 100 then
|
| |
|
|
|
dolphin
|
Дата: Четверг, 30.04.2009, 21:52 | Сообщение # 3
|
|
Администратор
Сообщений: 904
Статус: Offline
|
Спасибо, я сам не проверял...
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
