|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Undeclared Identifier 'TCheckBox'
Здравствуйте!
Вопрос в следующем: на форме куча чекбоксов, радиобутонов и т.д. и т.п. Процедура анализирует элементы и, если натыкается на CheckBox в состоянии True, выполняет что-то, если не в True, то тоже что-то выполняет. Процедура глохнет на втором вложенном If-е с ошибкой, указанной в имени поста. Код:
for i := 0 to form6.ComponentCount - 1 do if form6.Components[i].ClassName = 'TCheckBox' then if TCheckBox(form6.Components[i]).Checked=true then begin какие-то действия end else begin какие-то действия end; Спасибо откликнувшимся! Последний раз редактировалось Red_Garry, 18.10.2016 в 11:38. |
#2
|
||||
|
||||
так там то form6, то form1. да и вообще через is красивее проверять класс.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Form6 исправил. Через is проверка класса не работает
|
#4
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#5
|
||||
|
||||
Цитата:
Код:
for i := 0 to ComponentCount-1 do if Components[i] is TCheckBox then (Components[i] as TCheckBox).Checked:= true; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#6
|
|||
|
|||
спасибо за инфу. А по сути поста: надо было в Uses добавить StdCtrls.
Вопрос закрыт |