Компонент |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Компонент |
Egor Vladimirovich |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
Подскажите как сделать компонент системные часы?! Буду очень благодарен.Поиск юзал ни чего не нашел!
|
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Нужно системное время выводить ? Скажем в кепшн формы ? Вот так:
Кидаешь на форму компонент TTimer unit Unit1; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Egor Vladimirovich |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
Спсибо klem4.
Что то вроде такого,но надо сделать свой компанент. Что бы его бросаешь но форму,жмеш Ф9 и сразу в окошке появлялось системное время,например использовать Tlabel. А твой компанент например можно увидеть в панели-закладке standart. Сообщение отредактировано: Egor Vladimirovich - |
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Зачем свой-то ... TTimer на вкладке System находится ...
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Egor Vladimirovich |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
|
klem4 |
Сообщение
#6
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Тоесть нужено создать и зарегистрировать в делфи свой собственный компонент (например наследник TLabel) который будет постоянно отображать системное время ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Egor Vladimirovich |
Сообщение
#7
|
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
|
klem4 |
Сообщение
#8
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
В общем примерно это должно выглядить вот так, но почему-то при запуске программы с такой компонентой возникает ошибка, хотя кодга в Design mode кидаю этот лейбл на форму он уже начинает отображать текущее время, а вот при запуске программы выдает class TTimer not found ... Что не верно ?
unit TimerLabel; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Egor Vladimirovich |
Сообщение
#9
|
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
Спасибо klem4!
|
klem4 |
Сообщение
#10
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Egor Vladimirovich , да незачто пока, не работает ведь ...
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
hiv |
Сообщение
#11
|
Профи Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: 11 |
Egor Vladimirovich , да незачто пока, не работает ведь ... А что не работает? К стати надо бы и деструктор переопределить... destructor TTimerLabel.Destroy; Сообщение отредактировано: hiv - -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
klem4 |
Сообщение
#12
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата А что не работает? hiv, а ты зарегистрировал компонент и в тестовой программе все ок ? -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
hiv |
Сообщение
#13
|
Профи Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: 11 |
Вроде нашел последнее отличие моего варианта:
fTimer := TTimer.Create(Self); PS: У меня все ок, только не регится в группе Standard (вернее регится но не показывается в списке), в любой со своим названием без проблем... Сообщение отредактировано: hiv - -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
klem4 |
Сообщение
#14
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата fTimer := TTimer.Create(Self); Вот оно Я тоже хотел сделать именно это по задумке но не знал что написать, пробовал this но такого нет, а надо было self -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Egor Vladimirovich |
Сообщение
#15
|
Новичок Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Егор Репутация: 0 |
Вот оно Я тоже хотел сделать именно это по задумке но не знал что написать, пробовал this но такого нет, а надо было self klem4 от вашего первого варианта нашел как запустить,на форме появлялся сам клмпанент Ttimer(часики)!.Удалил эти часы,все откомпилировалось. thx за помощь! |
Текстовая версия | 28.04.2024 19:26 |