如下:Uint myform1 ;
.....
implementationuses myform2;procedur myproc ;
begin
edit1.text := form2.edit1.text ;
end ;
====================
Uint myform2 ;
.....
implementation
....
.....
implementationuses myform2;procedur myproc ;
begin
edit1.text := form2.edit1.text ;
end ;
====================
Uint myform2 ;
.....
implementation
....
From2:=TFrom2.Create(Appliction);
From2.Show;释放:
在From2的Close事件中写:
Action:=CaFree;这样就可以了.