Показать сообщение отдельно
  #5  
Старый 18.10.2016, 11:53
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Red_Garry
...Через is проверка класса не работает
Классически это делается так
Код:
for i := 0 to ComponentCount-1 do
   if Components[i] is TCheckBox then
     (Components[i] as TCheckBox).Checked:= true;
Ответить с цитированием