Código Delphi [-] unit Unit1; interface ... type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private public MiCampo: string; end; var Form1: TForm1; ...
unit Unit1; interface ... type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private public MiCampo: string; end; var Form1: TForm1; ...
Código Delphi [-] unit Unit2; ... implementation uses Unit1; {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin Form1.MiCampo := 'Hola!'; end;
unit Unit2; ... implementation uses Unit1; {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin Form1.MiCampo := 'Hola!'; end;