Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Форма ... [D5, Win95/98]

First_May © (2002-09-27 15:26:00)
Привет! Подскажите пожалуйста, как можно обратиться к самой форме, зная ее только имя?

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

Best Before 2024 (2002-09-27 18:46:00) [2]
for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].Name = "xxxForm" then
MenuForm(Base, UserCod, Screen.Forms[i]);

Zz_ (2002-09-27 18:32:00) [3]
Может имеется в виду FindWindow(...)

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

First_May (2002-09-27 18:28:00) [4]
Имя формы в виде строки, то есть просто название формы, а надо обратиться к самой форме как к объекту...

Best Before 2024 (2002-09-27 17:34:00) [5]
>>Я хочу, зная имя формы, и изменив ее меню, "перечитать" данное >>меню.
>>// заполнение меню 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 17:21:00) [6]
То Cossys © and Best Before 2024: более умных мыслей нет???

Best Before 2024 (2002-09-27 16:30:00) [7]
First...April? :)

Cossys (2002-09-27 16:25:00) [8]
Сначала представиться, а потом вежливо и по фамилии
:-)

First_May (2002-09-27 16:24:00) [9]
У меня список форм программы хранится в базе. Меню каждой формы там же, и создается динамически при создании соответствующей формы. Я хочу, зная имя формы, и изменив ее меню, "перечитать" данное меню. У меня есть функция, где в качестве одного из параметров используется TForm. Вот ее шапка:

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

Alx2 (2002-09-27 15:35:00) [10]
Хм. напрашивается тривиальный ответ. Но, наверное имелось в виду нечто другое. Может быть Screen.Forms?

andrey_pst (2002-09-27 15:27:00) [11]
Поясните вопрос, неясно что Вы хотите сделать.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »