Форма ...

← →
First_May © (2002-09-27 15:26) [0]

Привет! Подскажите пожалуйста, как можно обратиться к самой форме, зная ее только имя?

← →
andrey_pst © (2002-09-27 15:27) [1]

Поясните вопрос, неясно что Вы хотите сделать.

← →
Alx2 © (2002-09-27 15:35) [2]

Хм. напрашивается тривиальный ответ. Но, наверное имелось в виду нечто другое. Может быть Screen.Forms?

← →
First_May © (2002-09-27 16:24) [3]

У меня список форм программы хранится в базе. Меню каждой формы там же, и создается динамически при создании соответствующей формы. Я хочу, зная имя формы, и изменив ее меню, "перечитать" данное меню. У меня есть функция, где в качестве одного из параметров используется TForm. Вот ее шапка:

// заполнение меню Menu формы FormName из таблицы TableMenu
procedure MenuForm(Base: TIBDatabase; UserCod: integer; FormName: TForm);

← →
Cossys © (2002-09-27 16:25) [4]

Сначала представиться, а потом вежливо и по фамилии
:-)

← →
Best Before 2024 (2002-09-27 16:30) [5]

First...April? :)

← →
First_May © (2002-09-27 17:21) [6]

То Cossys © and Best Before 2024: более умных мыслей нет???

← →
Best Before 2024 (2002-09-27 17:34) [7]

>>Я хочу, зная имя формы, и изменив ее меню, "перечитать" данное >>меню.
>>// заполнение меню Menu формы FormName из таблицы TableMenu
>>procedure MenuForm(Base: TIBDatabase; UserCod: integer; >>FormName: TForm);

Какое "имя формы" Вы знаете?
var
xForm : TMyForm ???
Тогда
MenuForm(Base, UserCod, TForm(xForm));
или xForm.Name ?

← →
First_May © (2002-09-27 18:28) [8]

Имя формы в виде строки, то есть просто название формы, а надо обратиться к самой форме как к объекту...

← →
Zz_ (2002-09-27 18:32) [9]

Может имеется в виду FindWindow(...)

или назавание формы в виде Form1,Form2 ?

← →
Best Before 2024 (2002-09-27 18:46) [10]

for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].Name = "xxxForm" then
MenuForm(Base, UserCod, Screen.Forms[i]);

First_May © (27.09.02 16:24)
Идеальный вариат это массмв Screen.Forms, так как нет ни какой привязки ни к переменным, ни к заголовкам и гарантируется, что форма реально существует
Но в твоем заголовке не видать имени формы FormName: TForm это не совсем то. Откуда берешь имя формы, оно у тебя где то хранится?
Если же ты собираешься передавать найденную форму в процедуру тогда, все нормально.
В принципе, то что привел тебе Best Before 2024 (27.09.02 18:46) вполне достаточно, естественно вместо .Name можно использовать любое свойство от TForm

Форма ... Найти похожие ветки