Bueno lo que hago es lo siguiente:
En Form1...
implementation
Uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var f: TForm2;
begin
F:= TForm2.create(self);
try
F.Showmodal;
finally
f.free;
end;
end;
En formulario 2:...
implementation
uses unit3;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var f: TForm3;
begin
F:= TForm3.create(self);
try
F.Showmodal;
finally
f.free;
end;
end;
Y en el formulario 3
implementation
Uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
form1.Edit1.Text:= edit1.Text;
form1.Edit2.Text:= edit2.Text;
form2.Edit1.Text:= edit1.Text;
form2.Edit2.Text:= edit2.Text;
end;
y me manda el siguiente error:
Access Violation
|