Добро пожаловать на наш портал
На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Наш опросСтатистикаОнлайн всего: 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 выбираем шрифт и размер шрифта Часы готовы.
Скачать исходник
|
Друзья сайта |
