Групповые операции с контролами

Delphi , Компоненты и Классы , Свойства и События

Групповые операции с контролами

Если например эти 10 CheckBox все время используются для групповых операций, чтобы не перебирать компоненты можно сделать так.

1) Берем ставим на форму 10 CheckBox

2) объявляем массив

Code:

var arr:array[1..10] of TCheckBox

3) Далее присваиваем указатели массиву:

Code:

For i:=1 to 10 do arr[i]:=FindComponent(Format('CheckBox%d',[i])) as TCheckBox;

Все, теперь к каждому CheckBox можно обратится как к элементу массива:

arr[5].checked:=true;

Так как здесь массив статический никаких действий по освобождению памяти делать не надо, по уничтожении компонентов деструктором формы элементы массива будут показывать вникуда. В любом случае этот массив занимает в памяти 40 байт - не большая плата за скорость и удобство.

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru

Статья Групповые операции с контролами раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Свойства и События ::

Время компиляции файла: 2024-04-24 22:55:34
2024-04-25 16:50:49/0.0066840648651123/2