Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 24.07.2010, 23:15   #1
Shouldercannon
Профессионал
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Адрес: Пенза
Сообщений: 1,705
Репутация: 209

icq: 473732523
Вопрос Событие при не выделенных CheckBox

Если все четыре CheckBox не выделены, то при выделении CheckBox5 сделать
Код:

ShowMessage('Ни один из четырёх CheckBox не выделен');

Как такое сделать. Пробовал с с or и and, но не сработало
Shouldercannon вне форума   Ответить с цитированием
Старый 24.07.2010, 23:21   #2
DIgorevich
Погулять вышел
Профессионал
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Адрес: за спиной
Сообщений: 1,572
Репутация: 246
По умолчанию

Код:

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox1.Checked=false then
  if checkbox2.Checked=false then
    if checkbox3.Checked=false then
      if checkbox4.Checked=false then
        ShowMessage('Ни один из четырёх CheckBox не выделен');
end;

__________________
Никогда не знаешь, где тебе повезет... (Фрай) http://dvorkin.by/
DIgorevich вне форума   Ответить с цитированием
Старый 24.07.2010, 23:46   #3
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
Репутация: 58

icq: 593-013-807
По умолчанию

Код:

if CheckBox5.Checked
  then
    if (not CheckBox1.Checked) and (not CheckBox2.Checked) and 
      (not CheckBox3.Checked) and (not CheckBox4.Checked)
      then ShowMessage('Ни один из 4 чекбоксов не выделен')

Don Karleone вне форума   Ответить с цитированием
Старый 24.07.2010, 23:46   #4
Shouldercannon
Профессионал
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Адрес: Пенза
Сообщений: 1,705
Репутация: 209

icq: 473732523
По умолчанию

Хм оказалось проще некуда.
Shouldercannon вне форума   Ответить с цитированием
Старый 12.10.2017, 22:27   #5
Shouldercannon
Профессионал
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Адрес: Пенза
Сообщений: 1,705
Репутация: 209

icq: 473732523
По умолчанию

Как сделать туже проверку 4-х ComboBox, только через Components?
Код:

procedure TForm13.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TCheckBox then
    begin
      if not (Components[I] as TCheckBox).Checked then
      begin
        ShowMessage('Нет выделенных CheckBox');
        Break;
      end;
    end;
  end;
end;

Явно ошибка в логике, не работает должным образом
Shouldercannon вне форума   Ответить с цитированием
Старый 12.10.2017, 22:33   #6
northener
Профессионал
 
Регистрация: 15.07.2013
Сообщений: 1,323
Репутация: 397
По умолчанию

Код:

procedure TForm13.Button1Click(Sender: TObject);
var
  I: Integer;
  YesChecked : Boolean;
begin
  YesChecked:=False;
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TCheckBox then
    begin
      if (Components[I] as TCheckBox).Checked then
      begin
        YesChecked:=True;
        Break;
      end;
    end;
  end;
  if not YesChecked then ShowMessage('Нет выделенных CheckBox');
end;

northener вне форума   Ответить с цитированием
Старый 12.10.2017, 22:33   #7
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 16,513
Репутация: 5838
По умолчанию

Код:

  b:=False;
  for I := 0 to ComponentCount - 1 do
    b:=b or (Components[I] is TCheckBox and TCheckBox(Components[I]).Checked);
  if not b then ShowMessage('Нет выделенных CheckBox');

__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Событие при изменении дерева RIO Общие вопросы Delphi 17 17.05.2010 02:35
Как узнать индексы выделенных итемов в ListView при OwnerData? 3D Hunter Общие вопросы Delphi 3 02.10.2009 10:24
disabled поля при выборе checkBox(а) Damhurz JavaScript, Ajax 11 22.05.2009 15:26
Как использовать CheckBox при работе с БД Spy БД в Delphi 1 18.12.2008 15:43
Эмуляция нажатия клавиши при отметке Checkbox delphi_beginner Win Api 3 02.06.2007 10:07




15:20.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru