| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
окна;)
lak_b © (2002-06-01 11:37:00)как можно перебрать все окна моей проги, чтобы узнать есть ли определенное свойство у каждой/какой-нибудь?
MBo (2002-06-01 17:53:00) [1]Screen.Forms[]
kaif (2002-06-01 14:57:00) [2]Нужно иместь список указателей на окна.
Если у тебя окна создаются методами
MyForm := TMyForm = TForm.Create(Application);
или
Application..CreateForm(TMyForm, MyForm),
то есть если свойство Owner формы указывает на Application,
то потом всегда можно перебрать все формы, перебирая список компонентов, которыми владеет форма и приводя тип компонента к TForm:
for i := 0 to Application.ComponentCount - 1 do
with TForm(Application.Components[i]) do
<проверка значения свойства>
Если же нужно проверять именно, есть лисвойство, то нужно проверять класс каждого компонента
Application.Components[i].ClassName
или
if (Application.Components[i] is MyClass) then
в общем что-то в этом роде...
| |
