可以 啊 procedure TFm_main.N1Click(Sender: TObject); var Fm:TFm_xy; begin with fm_data.Cd do begin Fm:=TFm_xy.Create(Application) ; try IF Fm.ShowModal <>mrok then finally Fm.Free ; end; end; end;
首先你得使用Delphi菜单:File-->Use Unit...,在弹出的窗体中选择你的form1窗口。 然后在你的菜单Click事件中加入如下代码: if not Assigned(form1) then begin form1:=Tform1.Create(self); end; form1.Show;
在Project菜单下面Option里面的Forms页中有两个列表,一个是Atuo-Create Forms 一个是Available Forms,如果你要创建的窗体在Auto列表中则可以通过FORM2.SHOW来调用(前提是引用了单元文件),如果是在Avail里则要手动创建,Form2:=TForm2.Create(nil);Form2.show,建议还是好好看看书吧,不过我建议初学者还是不要学习DELPHI了,虽然它很优秀,但是已经没有什么前途了,已经被它的”母亲“Borland给卖掉了,以后它的前途如何还不知道呢
procedure TFm_main.N1Click(Sender: TObject);
var
Fm:TFm_xy;
begin
with fm_data.Cd do
begin
Fm:=TFm_xy.Create(Application) ;
try
IF Fm.ShowModal <>mrok then
finally
Fm.Free ;
end;
end;
end;
然后在你的菜单Click事件中加入如下代码: if not Assigned(form1) then
begin
form1:=Tform1.Create(self);
end;
form1.Show;
until1
....
implementation
uses //此处要增加uses语句,并调用form1的单元until2
until2;{$R *.dfm}
procedure Tform1.N1Click(Sender: TObject);
begin
form2.show;//用show来显示,或showmodal(只有关了以后,form1才能用)
end;
end.
还是多看书吧
一个是Available Forms,如果你要创建的窗体在Auto列表中则可以通过FORM2.SHOW来调用(前提是引用了单元文件),如果是在Avail里则要手动创建,Form2:=TForm2.Create(nil);Form2.show,建议还是好好看看书吧,不过我建议初学者还是不要学习DELPHI了,虽然它很优秀,但是已经没有什么前途了,已经被它的”母亲“Borland给卖掉了,以后它的前途如何还不知道呢