delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Создание цифровых часов в Delphi 7. - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: winxaker  
Форум » Программирование » Исходники » Создание цифровых часов в Delphi 7.
Создание цифровых часов в Delphi 7.
A{O}KXДата: Понедельник, 26.07.2010, 21:44 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 17
Награды: 0
Репутация: 1
Статус: Offline
Для создания часов понадобятся следующие компоненты:

Label вкладка Standard
Timer вкладка System

Кидаем на форму Labe иl Timer.

Кликаем по таймеру два раза и там пишем:

label1.caption:=timetostr(time);

В итоге код в таймере должен получиться такой:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;

Кликаем по форме один раз и в функции BorderStyle ставим bsDialog

Кликаем по лабел один раз и в функции Font выбираем шрифт и размер шрифта

Часы готовы.

 
AiX2011Дата: Понедельник, 25.07.2011, 00:01 | Сообщение # 2
Лейтенант
Группа: Пользователи
Сообщений: 51
Награды: 1
Репутация: 2
Статус: Offline
ты гений smile

Сайт посвященный программированию в среде Delphi. Вопросы по Delphi и HTML на форуме
 
Форум » Программирование » Исходники » Создание цифровых часов в Delphi 7.
  • Страница 1 из 1
  • 1
Поиск:

 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432