Советы по Delphi

         

Доступ к компонентам GroupBox


Одно из свойств всех элементов управления - указатель на другие элементы, которые он содержит. Это свойство - свойство Controls, которое индексируется наподобие массива. Количество элементов управления содержится в свойстве ControlCount. Если вы хотите получить доступ к свойству или методу, которого нет у TControl, вам неоходимо осуществить приведение типа элемента списка.

    procedure DoSomethingWithAGroupBox;
var
i : integer; begin
with
AGroupBox do for i := 0 to ControlCount - 1 do if controls[i] is TEdit then TEdit(controls[i]).text := 'Как насчет этого?'; end;
end;

Приведенный выше пример будет работать, если элементом управления является TEdit или его наследник, например, TDBEdit или TMaskEdit. Все объекты могут быть приведены к типу одного из объектов, являющегося наследником базового типа (или им самим). Но не спешите приводить все к родительскому классу, родитель в данном случае здесь не подходит, поскольку он означает объект, который содержит сам себя. [001447]



Содержание раздела