Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: 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 вся ветка

Текущий архив: 2004.10.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-1095255459
MetalFan
2004-09-15 17:37
2004.10.03
JVCL


14-1094888235
Piter
2004-09-11 11:37
2004.10.03
Какая температура в ванной?


3-1094019462
bSava
2004-09-01 10:17
2004.10.03
Непонятное поведение FB1.5


14-1095250698
Fredy314
2004-09-15 16:18
2004.10.03
Купил себе TV tuner


14-1094972103
Real
2004-09-12 10:55
2004.10.03
Всех с днем программиста!