如何调用另一个窗体：

[wanglong20000]

在用DELPHI时，一个窗中始终不能调用另一个窗体。如：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
New1: TMenuItem;
procedure New1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.New1Click(Sender: TObject);
begin
TForm2.Create(self);
end;
end.
当点击Form1中的NEW时，总是不用弹出Form2，FORM2的代码如如下：
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus,StdCtrls,comCtrls;
type
TForm2 = class(TForm)
MainMenu1: TMainMenu;
New1: TMenuItem;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
end.

[wanglong20000]

谢谢各位高手，不过下次像我这样的同辈能不能不要加个“晕”呢！
一个弄不懂的问题已经很是伤心啦！！
不过总的说来千谢万谢，来不及写草头大万啦！！！

[wanglong20000]

能不能还有另外的方法。

[Eastunfail]

由阿。一般你添加的窗体默认是静态创建。所以就不需要TForm2.Create了。因为Form2在程序初始化的时候就已经被创建了。

所以你简单的可以使用

Form2.Show
或者
Form2.ShowModal
来显示Form2。
不过别忘了在uses后面要引用form2的单元文件阿

[97866]

把Form 的 Visible改为True

[root3646]

呵呵。。。“晕”就晕被。不要介意。

[chinawzg]

用 form1.show


欢迎进入

http://www2.baidu.com/chains/chains.php?cn=cwwnet1

http://chinaour.com/?cwwnet

[Eastunfail]

当然，你只是创建了一个，并没有显示出来。
if Assigned(Form2)=false then Form2:=TForm2.Create(self);
Form2.ShowModal;

[firetoucher]

procedure TForm1.New1Click(Sender: TObject);
begin
//TForm2.Create(self);//!!!!晕,你没有将create出来的窗体赋给其他常量,
//改成楼上的代码吧

if not Assigned(Form2) then Form2:=TForm2.Create(self);
Form2.Show;

end.

[wanglong20000]

对不起，和我想像的不一样，还有吗？

[rufer]

说的有道理：）

[machael724]

在delphi的project菜单里面有个add to project选项
你把form2添加进去

[wanglong20000]

好像还是不行的，能讲的深一点吗？

[wanglong20000]

我盼望老兄们的回答呢

[coreblood]

to ： Eastunfail(恶鱼杀手) ( )
说得好

[wanglong20000]

我终于弄明白啦，谢谢大家有帮助，虽然你们没有讲正确，谢谢啦！！

[whitetiger8]

if Assigned(Form2)=false then Form2:=TForm2.Create(self);
Form2.ShowModal;