Показать сообщение отдельно
  #2  
Старый 14.09.2009, 19:20
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

1. Все условия - в скобки.
2. CheckBox.Checked - уже булевское значение. Нафига сравнивать?

Код:
With Form2 Do
  If (Not CheckBox1.Checked) And
     (Not CheckBox2.Checked) And
     (Not CheckBox3.Checked) And
     (Not CheckBox4.Checked) And
     (Not CheckBox5.Checked) Then ShowMessage('bla-bla-bla');

Еще один вариант (просто преобразование НЕ-И в НЕ-(ИЛИ)):
Код:
With Form2 Do
  If Not (CheckBox1.Checked Or
          CheckBox2.Checked Or
          CheckBox3.Checked Or
          CheckBox4.Checked Or
          CheckBox5.Checked) Then ShowMessage('bla-bla-bla');
Ответить с цитированием