Скачать: CL | DM;

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

← →
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

---

← →
bloodman ©   (2004-09-15 19:44) [4]

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

---

← →
begin...end ©   (2004-09-15 19:47) [5]

> 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;

Может, так?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.047 c