Архив форумов ЦИТФорума

[Gene J.B.]

Как сделать доступной глобальную переменную Form1 в Form2 в Builder. Не могу понять...

[Gene J.B.]

Я делал так
В форме 1

#include "Time.h"
//----------------------------------------------------------.. package(smart_init)
#pragma link "Trayicon"
#pragma resource "*.dfm"
TMainMan *MainMan;
TRegistry *Reg = new TRegistry; // - задаю переменную
//--------------------------------------------------------.. TMainMan::TMainMan(TComponent* Owner)
: TForm(Owner)
{
в форме 2

//--------------------------------------------------------------------.. package(smart_init)
#pragma resource "*.dfm"
TPropertis *Propertis;
extern TRegistry *Reg; // - ссылаюсь на переменную в форме 1
//-----------------------------------------------------------------.. TPropertis::TPropertis(TComponent* Owner)
: TForm(Owner)
{

у меня так все работает и в 5 формах (незнаю правильно,нет по книге я понял так.)

Может ответишь мне от Срочнооо......г о р ю ю .. (выше)

[Valera]

Unit unit1;
interface
uses ....unit2;
type tform1=class(tform);
var form1:tform1;
implementation
end;

Unit unit2;
interface
uses ....;
type tform2=class(tform);
var form2:tform2;
implementation
===========
uses unit1;
===========
end;

[IL]

Включи заголовочный файл формы 1 в
Source файл формы 2