高分求救 小弟有一个很简单的问题请教大家 有fm1,fm2两个窗体,当单击fm1上的button时,fm2窗体出现,f1窗体关闭,该如何写代码及写在何处,拜托了,请帮忙! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 buttonclick()beginfm2.show;fm1.close; 或者fm1.hide;end; procedure TFm1.Button1Click(Sender: TObject);begin Fm2:=Tfm2.create(application); Fm2.showmodal; Fm1.Visible:=false;end; procedure TFm1.Button1Click(Sender: TObject);begin Application.CreateForm(Tfm2, Fm2); fm2.ShowModal; Fm1.Visible:=false;end; 并在第一单元里,把第二个单元USES进去。implementationuses unit2; 来晚了……不过做这个操作时要记得在form1中uses form2单元! form1.hide;form2.show;if want show form1 again , use form1.show; form2.show;form1.hide;//不能用Close,会出错.. 在Form2的OnShow事件中关闭Form1; 如果form1是窗体的话:就用form1.Visible:=false或form1.hide。如果不是就用form2.show; form1.close; 如何读取一个DFM文件并且生成预览画面? 用代码在DBGRID中动态添加一行 关于在两个DLL中用同一个控件冲突的问题? 我的数据库里有一个boolean字段. 小弟刚学D6,问几个很菜的问题 在线等待:请问用table控制dbf数据表时,需要向数据表中插入一条记录,为什么数据总是跑到最后一条 我想家了,想以前的女朋友了 屏幕刷新问题 Help!数据保存出错?数据库高手请进。在线等待! 奇怪的 菜鸟问题 一次打开多个文件,并将他们的属性显示在Listview中?
begin
fm2.show;
fm1.close; 或者fm1.hide;
end;
begin
Fm2:=Tfm2.create(application);
Fm2.showmodal;
Fm1.Visible:=false;
end;
begin
Application.CreateForm(Tfm2, Fm2);
fm2.ShowModal;
Fm1.Visible:=false;
end;
implementation
uses
unit2;
不过做这个操作时要记得在form1中uses form2单元!
form2.show;
if want show form1 again , use form1.show;
form1.hide;//不能用Close,会出错..
如果不是就用form2.show;
form1.close;