Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
Гродненский Форум
19 Июль 2025, 18:10:32
Новости, реклама:
   Главная   Новости Гродно Помощь Игры Календарь Войти Регистрация   Меню
Страниц  : 2 3 Далее»  Все   Вниз
  Печать  
Автор Тема: Re: Delphi как много в этом слове...  (Прочитано 11392 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Tal
Гродненец
**

Репутация: +2/-0
Offline Offline

Пол: Мужской
Сообщений: 105


ну и кто сказал - что будем делать?

Просмотр профиля
« Ответ #0 : 17 Ноябрь 2005, 12:22:41 »

procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
 for i := 1 to 100 do begin
   StatusBar1.Panels[0].Text := IntToStr(i);
   StatusBar1.Refresh;
   sleep(100);
 end;
end;
Записан

Дурак думает, умный действует по обстоятельствам.
Страниц  : 2 3 Далее»  Все   Вверх
  Печать  
 
Перейти в:  

Войти
Войдите, чтобы добавить комментарий

Войдите через социальную сеть

Имя пользователя:
Пароль:
Продолжительность сессии (в минутах):
Запомнить:
Забыли пароль?

Контакт
Powered by MySQL Powered by PHP Мобильная версия
Powered by SMF 1.1.20
SMF © 2006-2025, Simple Machines
Simple Audio Video Embedder
| Sitemap
Valid XHTML 1.0! Valid CSS!
Страница сгенерирована за 0,075 секунд. Запросов: 20.