Перебор всех компонентов на форме

Перебор всех компонентов на форме

Например, надо найти все TCheckBox на форме и установить их все в положение checked:

Code:

var i: integer;

begin

 

for i := 0 to ComponentCount - 1 do

   if Components[i] is TCheckBox then

     (Components[i] as TCheckBox).Checked := true;

end;

 

Автор: Vit

Взято с Vingrad.ru

 

 

Новые статьи

Случайные статьи

Популярные статьи

Подробности
Родительская категория: VCL
Категория: Неявное обращение к компонентам, манипуляции в run-time

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!

Защитный код
Обновить