окна;)

← →
lak_b (2002-06-01 11:37) [0]

как можно перебрать все окна моей проги, чтобы узнать есть ли определенное свойство у каждой/какой-нибудь?

← →
kaif (2002-06-01 14:57) [1]

Нужно иместь список указателей на окна.
Если у тебя окна создаются методами
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
в общем что-то в этом роде...

← →
MBo (2002-06-01 17:53) [2]

Screen.Forms[]

окна;) Найти похожие ветки