Delphi компонент Timer

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Delphi компонент Timer

Опции темы

Поиск в этой теме

Опции просмотра

Delphi компонент Timer

24.04.2010, 20:12

~~Sunstrider~~

Banned

Регистрация: 09.04.2010

Сообщений: 181

С нами: 8468331

Репутация: 12

Delphi компонент Timer

PHP код:


		
			
ProgressBar1.position:=ProgressBar1.position   +10;

if ProgressBar1.position = 100 then Showmessage ('you ');

Timer1.Enabled:=False;

Прогрес бар на 10 ке зависает и все

𝕏 Twitter Reddit Telegram Копировать ссылку

24.04.2010, 20:14

Jaw

Новичок

Регистрация: 12.04.2010

Сообщений: 4

С нами: 8464181

Репутация: 1

Цитата:

Сообщение от Sunstrider

Прогрес бар на 10 ке зависает и все

Ему больше ничего не остается делать(

Код:

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max; 
ProgressBar1.Position := ProgressBar1.Position + 10; 
if ProgressBar1.Position= 100 then 
ShowMessage('you'); 
end;

Последний раз редактировалось Jaw; 24.04.2010 в 20:17..

24.04.2010, 20:16

~~Sunstrider~~

Banned

Регистрация: 09.04.2010

Сообщений: 181

С нами: 8468331

Репутация: 12

Цитата:

Сообщение от Jaw

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max;
ProgressBar1.Position := ProgressBar1.Position + 10;
if ProgressBar1.Position= 100 then
begin
ShowMessage('you');
end;
end;

спасибо помогло

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Books	PSalm69	Избранное	273	13.02.2016 01:24
Литература Delphi	Sams	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	2	19.03.2010 19:46
как установить компонент в Delphi	Student :)	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	4	05.02.2010 07:13
Дочерний компонент от ListBox (Delphi)	Si{R}ius	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	3	26.12.2009 13:22
Virus.Win32.Induc.a или "Снова записки новичка"	_=(mac)=_	Защита ОС: вирусы, антивирусы, файрволы.	5	24.08.2009 23:34

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход