Question

DELPHI 调用窗体问题！急

FORM1 调用FORM2一点击就弹出内存错误，找了好久没找到解决方法

unit Unit1;
interface

uses

....,unit2; //调用子窗体单元

type

...
procedure btn1Click(Sender: TObject);

var

Form1: TForm1;

implementation

procedure TForm1.btn1Click(Sender: TObject); //调用过程

begin
Form2:=TForm2.create(self);
Form2.Show;
end;

unit Unit2;

....

implementation
uses
Unit1;

....

程序FORM1执行后，点击BTN1,出现内存错误

另外

Answer 1

wsong1103和hejinxiang2006回答的并没有实际意义。uses过了，本身就是引用了定义，这和如何调用部分并没有关系。应该是在FORM2的创建过程中有错。
检查一下procedure TForm2.FormCreate(Sender: TObject)过程，设置一个断点，应该是这过程里面的代码导致的错误。

Answer 2

如果是在窗体设计器中设计好的窗体，

请去掉这句画蛇添足

Form2:=TForm2.create(self);

即可。

Answer 3

procedure TForm1.btn1Click(Sender: TObject); //调用过程

begin
Form2:=TForm2.create(self);
Form2.Show;
end;
改为
procedure TForm1.btn1Click(Sender: TObject); //调用过程
var
Form2: TForm2;
begin
try
Form2:=TForm2.create(self);
Form2.Show;
finally
Form2.free;
end;
end;
你要先申明一个窗体对象，才能调用该对象的方法。

Answer 4

TForm1.btn1Click(Sender: TObject); 中的Form2.Show;改成ShowModal试试