窗体调用的小问题,在线等呀.

Question

一个主窗体在调用子窗体时,提示:"name not unique in this context"代码如下:
procedure TForm1.Button8Click(Sender: TObject);
begin
form2:=Tform2.CREATE(self);
form2.SHOWmodal;
end;
真接用:FORM2.SHOWMODAL;也行,就是不知为什么上面一句不对.

Answer 1

Tform2.CREATE(self);主要是主--子窗体的关系。//创建FORM2（本身）.
比方说：
procedure TForm1.Button8Click(Sender: TObject);
begin
with tfdiandan.Create(self) do
parent:=form1;//在FORM1窗体中创建from2{说明显示的位置}{left\top等属性}
}
FORM2.SHOWMODAL就不用说了。只显示某个窗体。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
    form2:=Tform2.Create(self);
    form2.ShowModal;
    form2.Free;
end;这样写应该没问题的。