关于手动创建的窗体

Question

手动创建的窗体有很多功能实现不了:无法赋值：我想对新创建的窗体中的某个文本框赋值，值来源于另一个新建的窗体的值，但是会出现错误；请问这是为什么？怎么解决？

Answer 1

unit Unit1; interface uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; var 
  Form1: TForm1; 
  Form2: TForm;//  这里Form和Edit声明为全局变量！ 
  Edit1: TEdit; 
implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Form2 := TForm.Create(self); 
  Form2.Show;   Edit1 := TEdit.Create(self); 
  Edit1.Parent := Form2; 
  Edit1.Show; 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Edit1.Text := 'aaa'; 
end; end. 看看这段代码！

Answer 2

我知道是哪里错了：
我是用的是tform1.create(self)；改成Form1 := TForm1.Create(self)就可以了。