![]() |
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]() ![]() ![]() |
|
Михалыч |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 472 Регистрация: 1.7.2008 Репутация: нет Всего: нет |
Программа называется таймер.На форме много чего,но это не столь важно,для моего вопроса опишу два компонента Label и три CheckBox.В одном CheckBox если true то выскочит окно "Привет",в другом CheckBox если true то выскочит окно "Не привет",а втретьем окно "Всем привет".Переменной s присваиваю время.Код я проверяю в компоненте Timer. А сам вопрос такой:
как мне правильно записать код,ну примерно вот так,только это не правильно: procedure TForm1.Timer2Timer(Sender: TObject); if Label1.Caption=s then begin if Form1.FlatCheckBox1=true then begin Showmessage('Привет'); end; if Form1.FlatCheckBox2=true then begin Showmessage('Не привет'); end; if Form1.FlatCheckBox3=true then begin Showmessage('Всем привет'); end; -------------------- За частый поиск был забанен во всех известных поисковых системах. Обиженных комодераторов: 1 |
|||
|
||||
THandle |
|
|||
![]() Хранитель Клуба ![]() Награды: 1 Профиль Группа: Админ Сообщений: 3639 Регистрация: 31.7.2007 Где: Moscow, Dubai Репутация: 65 Всего: 372 |
|
|||
|
||||
Михалыч |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 472 Регистрация: 1.7.2008 Репутация: нет Всего: нет |
Большое спасибо,это я begin лишних понаставил
-------------------- За частый поиск был забанен во всех известных поисковых системах. Обиженных комодераторов: 1 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Общие вопросы" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |