如何弹出窗口? 我做了一个窗口做为主界面,然后具体功能由子窗口完成现在如何能单击一个按钮就弹出相应的子窗口? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在form1中use unit2,然后form2.show; INTERFACE //引用 你要到的单元如楼主ZHJ009所说的也行楼主一的,两个窗口都能切换。而第二个楼主的,只是被激活的那一个是可用的 在一按钮事件里这么写代码begin if form2 = nil then form2 := Tform2.create(application); form2.show;end;如是模态窗口begin with Tform2.create(application)do try showmodal; finally free; end;end; OpenForm(TLendBookF,LendBookF);//TLendBookF 为窗口的类 Application.CreateForm(TfrmEmployInform,frmEmployInform);frmEmployInform.ShowModal;frmEmployInform.free; if form2.Showing then form2.BringToFrontelse Form1.Show; 有没有for TurboDelphi的fastreport中文版? 怎样格式化数字显示方式 恢复数据库的一个问题,请各位赐教!!在线等待...... foxpro数据库文件建立的问题,我是菜鸟,不要笑我 为什么我写的QREPORT报表只能显示一条记录? 问一个简单的问题?如何按位求反? 我学过C++,因工作需要我在学delphi,能介绍一本书吗 简单的抢分题,先答先给 MDIFORM問題,我的ChildForm顯示不出來? DELPHI与单片机 delphi6开发人员指南书中不解 怎么在一个DBGrid里显示两张不同的有关联的表里的部分数据啊?
//引用 你要到的单元如楼主ZHJ009所说的也行
楼主一的,两个窗口都能切换。而第二个楼主的,只是被激活的那一个是可用的
begin
if form2 = nil then
form2 := Tform2.create(application);
form2.show;
end;如是模态窗口
begin
with Tform2.create(application)do
try
showmodal;
finally
free;
end;
end;
frmEmployInform.ShowModal;
frmEmployInform.free;
else Form1.Show;