Как пройтись по всем компонентам на форме в рантайм.

← →
bloodman © (2004-09-15 16:17) [0]

Т.е. получить доступ например к Caption компонента. знаю что примерно так , но как учесть потомков стандартных классов , т.е.
LAla = class(TGroupBox)....
Если я напишу такой цикл:
RootObj:TForm;
for i := 0 to Rootobj.ComponentCount do
begin
if rootobj is TGroupBox Then
...
end;
И как узнать есть ли у данного объекта определенное свойство?

← →
_student (2004-09-15 18:44) [1]

Проверка на существование свойства
value:=GetPropValue(Components[i],"Caption");
value будет равно varNULL если свойства не существует

← →
bloodman © (2004-09-15 19:00) [2]

пишет Undeclared Indentifier на GetPropValue...

← →
_student (2004-09-15 19:08) [3]

Подключи модуль TypInfo

понятно , спасибо.

> for i := 0 to Rootobj.ComponentCount do
> begin
> if rootobj is TGroupBox Then
> ...
> end;

for i := 0 to Rootobj.ComponentCount - 1 do
begin
if rootobj.Components[i] is TGroupBox Then
...
end;

Может, так?

Как пройтись по всем компонентам на форме в рантайм. Найти похожие ветки