Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]);


 
Anatoly Podgoretsky   (2002-09-27 19:16) [11]

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



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

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.038 c
1-31735
KidMan
2002-09-30 22:24
2002.10.10
Exell и база данных


3-31609
skiph
2002-09-19 05:35
2002.10.10
Lookup


1-31718
diMAN
2002-09-27 18:20
2002.10.10
Системная кнопка


7-32029
Ffaster
2002-07-31 01:29
2002.10.10
Как из своей проги запустить остановить Сервер удалённого доступа


14-31983
mopassan
2002-09-13 10:25
2002.10.10
Ацените сайт!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский