窗体切换,在线急等答案啊~~~~~~~~~~~~~~~
问一下,如何在主窗体中实现单击一下按钮另一个窗体就能弹出来啊?
我这样做了,为了显示所要的窗体为主窗体,我现在project中选options,将需要的窗体设置为主窗体了,然后这个窗体是一运行就能作为主窗体弹出了,另一个form的窗体我取名为unit_choose,我在主窗体的程序uses中添加了uses_choose;,我想点击主窗体的按钮能显示unit_choose中的form,大致程序如下:
implementation
uses
//AssignGroup;
unit_choose;
{$R *.dfm}
procedure TFrmEditUsr.BT_NUsRightClick(Sender: TObject);
begin
//FrmAssign.ShowModal;
unit_choose.Form1.ShowModal;
end;
为什么一单击主窗体上的按钮就报错啊,各位大虾看看我哪弄错了啊
问题点数：50、回复次数：3Top
1 楼liangqingzhi（老之）回复于 2006-03-03 20:38:41 得分 0
要显示的是MDI的子窗体吗？
用unit_choose.Form1.Show试一下Top
2 楼ourme（风含笑）回复于 2006-03-03 21:40:45 得分 0
是不是你把窗口做成了动态生成哦，如果是这样在options中其设成Auto_Create或者
添加如下代码：
unit_choose.create();Top
3 楼lovendII（流氓都做了城管）回复于 2006-03-04 08:31:29 得分 0
报什么错?
子窗体的打开:
if form1 = nil then
form1 := Tform1.Create(self);
还需要做的是在主窗体中的public里定义form1
public
{ Public declarations }
form1:TForm;
并且uses这个form1的的pas文件,如
uses unit1等等。Top
