Главная страница
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.025 c
4-1093185630
Graf
2004-08-22 18:40
2004.10.03
Получение ресурса из внешнего EXE или DLL файла


4-1093120848
Getsevich
2004-08-22 00:40
2004.10.03
Закрытие процесса


14-1095392648
Leshiy
2004-09-17 07:44
2004.10.03
Прикольный вид сайта :)


11-1081274763
Михаил
2004-04-06 22:06
2004.10.03
Редактор ресурсов


14-1093716915
ИМХО
2004-08-28 22:15
2004.10.03
ЛЧ 2004/05