Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Записать код 
:(
    Опции темы
Михалыч
Дата 2.7.2008, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 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 
PM MAIL   Вверх
THandle
Дата 2.7.2008, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372



Код

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if Label1.Caption=s  then
    begin
      if FlatCheckBox1.Checked then 
        Showmessage('Привет');
      if FlatCheckBox2.Checked then 
        Showmessage('Не привет');
      if FlatCheckBox3.Checked then
        Showmessage('Всем привет');
    end;
end; 

PM   Вверх
Михалыч
Дата 2.7.2008, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет



Большое спасибо,это я begin лишних понаставил


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0555 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.