| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как пройтись по всем компонентам на форме в рантайм. [D6, Win2k]
bloodman © (2004-09-15 16:17:00)Т.е. получить доступ например к Caption компонента. знаю что примерно так , но как учесть потомков стандартных классов , т.е.
LAla = class(TGroupBox)....
Если я напишу такой цикл:
RootObj:TForm;
for i := 0 to Rootobj.ComponentCount do
begin
if rootobj is TGroupBox Then
...
end;
И как узнать есть ли у данного объекта определенное свойство?
begin...end (2004-09-15 19:47:00) [1]
> for i := 0 to Rootobj.ComponentCount do
> begin
> if rootobj is TGroupBox Then
> ...
> end;
for i := 0 to Rootobj.ComponentCount - 1do
begin
if rootobj .Components[i]is TGroupBox Then
...
end;
Может, так?
bloodman (2004-09-15 19:44:00) [2]понятно , спасибо.
_student (2004-09-15 19:08:00) [3]Подключи модуль TypInfo
bloodman (2004-09-15 19:00:00) [4]пишет Undeclared Indentifier на GetPropValue...
_student (2004-09-15 18:44:00) [5]Проверка на существование свойства
value:=GetPropValue(Components[i],'Caption');
value будет равно varNULL если свойства не существует
| |
