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

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

Указатели


Progh ©   (2005-01-08 07:19:00) 

Как создать указатель на тип из другого модуля ?

Например :
  Unit1;
  ...
 Form1 = class(TForm)
...
var
  a: TButton;

Unit2;
Uses Unit1;
...
Как создать тут указатель на Form1.a из первого Unit-a?


SergP   (2005-01-08 15:31:00) [1]


> a не является членом класса TForm1


Хм... Тогда
uses unit2;
и просто a

Т.е. var которые описаны во втором модуле будут видны и в первом.


SergP   (2005-01-08 15:30:00) [2]


>  [3] Anatoly Podgoretsky ©   (08.01.05 13:49)
> Progh   (08.01.05 07:19)  
> SergP ©   (08.01.05 10:52) [1]
> a не является членом класса TForm1


Хм... Тогда
uses unit2;
и просто a


Anatoly Podgoretsky   (2005-01-08 13:49:00) [3]

Progh   (08.01.05 07:19)  
SergP ©   (08.01.05 10:52) [1]
aне является членом класса TForm1


dmk   (2005-01-08 13:23:00) [4]

var
 MyFormPtr: Pointer;

Примерно так. И без шуток.


SergP   (2005-01-08 10:52:00) [5]


> Как создать тут указатель на Form1.a из первого Unit-a?


Зачем?

Чем тебе Form1.a не нравится?


Наверх

Титульная страница Поиск, карта сайта Написать письмо