Скачать: CL | DM;

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

← →
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[]

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c