| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сделать глобальной компоненту формы, не меняя её название [D7, XP]

JustABeginner ©   (2006-03-26 18:32:00) 

можно ли как-то объявить один из компонентов формы - глобальной переменной
чтобы не нужно было писать в разных юнитах MainForm1.ObjectOnFormName
а просто ObjectOnFormName.

---

Наиль   (2006-03-26 20:40:00) [1]

Я в таких случаях делаю так:
intrerface
...
function ObjectOnFormName:TObjectOnFormName
implementation
...
function ObjectOnFormName:TObjectOnFormName;
begin
if MainForm1=nil
then Exception.Create('Форма не создана')
else result:=MainForm1.ObjectOnFormName;
end;

---

JustABeginner   (2006-03-26 18:55:00) [2]

т.е. правильнее вот так:
unit1.ObjectOnFormName:=self.ObjectOnFormName;

---

JustABeginner   (2006-03-26 18:48:00) [3]

придумал вариант

объявляю глобальную переменную ObjectOnFormName (которая
естественно не конфлитктует с  MainForm1.ObjectOnFormName)
и onFormCreate пишу

ObjectOnFormName:=self.ObjectOnFormName;

---

Наверх