问一下,如何在主窗体中实现单击一下按钮另一个窗体就能弹出来啊?
我这样做了,为了显示所要的窗体为主窗体,我现在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;
为什么一单击主窗体上的按钮就报错啊,各位大虾看看我哪弄错了啊
我这样做了,为了显示所要的窗体为主窗体,我现在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;
为什么一单击主窗体上的按钮就报错啊,各位大虾看看我哪弄错了啊
用unit_choose.Form1.Show试一下
添加如下代码:
unit_choose.create();
子窗体的打开:
if form1 = nil then
form1 := Tform1.Create(self);还需要做的是在主窗体中的public里定义form1
public
{ Public declarations }
form1:TForm;并且uses这个form1的的pas文件,如
uses unit1等等。