![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Указатели
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 не нравится?