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

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, заключающийся в объявлении массива указателей на компоненты и присваивании им значений.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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

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

Время компиляции файла: 2024-12-22 17:14:06
2025-11-08 11:38:28/0.0096859931945801/0