delphi-lubitel

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

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Часы

Наш опрос

Как вы попали на сайт ???
Всего ответов: 487

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Создание цифровых часов в Delphi 7.
Для создания часов понадобятся следующие компоненты:

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 выбираем шрифт и размер шрифта

Часы готовы.
Скачать исходник
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432