unit2 引用unit1的问题 delphi

来源：百度知道 编辑：UC知道 时间：2024/07/01 03:21:05
var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Show;
end;

end.

unit2引用unit1的问题 点击button1是 出现了
access violation at address xxxxxx in module 的问题 求解 难道是我的unit2引用unit的错误？？

form1 为空
form2只有一个Button

Form1没有创建 你就用?

1、首先确认Unit1中有没有use Unit2，有的话要先删掉，因为form之间不能重复调用；
2、把form2的代码修改成：
procedure TForm2.Button1Click(Sender: TObject);
var
aForm1 : TForm1;
begin
try
aForm1 := TForm1.Create(Self);
aForm1.ShowModal;
finally
aForm1.free;
end;
end;

在 form1.Show; 之前，看看form1是否为nil，如果是，先创建

if form1 = nil then
form1 := TForm1.Create(Self);
form1.Show;