Текущий архив: 2002.06.13;
Скачать: 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 вся ветка
Текущий архив: 2002.06.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
