W windwy Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #2 begin Application.CreateForm(TFmjspxdj, Fmjspxdj); IF ...then begin .... end; Fmjspxdj.Showmodal(); Fmjspxdj.Release;
begin Application.CreateForm(TFmjspxdj, Fmjspxdj); IF ...then begin .... end; Fmjspxdj.Showmodal(); Fmjspxdj.Release;
D dongberlin Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #3 使用Showmodal.(一定要关闭窗口才能往下执行)
Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-27 #4 //这样就可以了。 begin GH:=FORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 FORM2.SHOWMODAL; Form2.Free; Form2:=Nil; end;
//这样就可以了。 begin GH:=FORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 FORM2.SHOWMODAL; Form2.Free; Form2:=Nil; end;
细 细文 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-24 #5 窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.
Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-24 #6 呵呵,他缺了一个“T” begin FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 FORM2.SHOWMODAL; Form2.Free; Form2:=Nil; end;
呵呵,他缺了一个“T” begin FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 FORM2.SHOWMODAL; Form2.Free; Form2:=Nil; end;
风 风中流云 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-25 #9 FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 try FORM2.SHOWMODAL; if form2.ModalResult=mrOk then begin //your code end; finally Form2.Free; end; form2的确定按钮中加modalresult:=mrok; 关闭按钮中close;
FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 try FORM2.SHOWMODAL; if form2.ModalResult=mrOk then begin //your code end; finally Form2.Free; end; form2的确定按钮中加modalresult:=mrok; 关闭按钮中close;
Y ybjames2001 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-25 #11 将子窗体的formstyle设置为dialog模式
细 细文 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-27 #12 各个大侠. 我说过多遍窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.我试过很多遍都不行. 难道中间有什么问题?. 子窗口的formstyle只有四种模式(FSMDICHILD FSMDIFORM FSNORAL FSSTAYONTOP). 没有dialog模式.
各个大侠. 我说过多遍窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.我试过很多遍都不行. 难道中间有什么问题?. 子窗口的formstyle只有四种模式(FSMDICHILD FSMDIFORM FSNORAL FSSTAYONTOP). 没有dialog模式.
Y ybjames2001 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-27 #14 你可以不用MDI子窗体嘛,单单是设置borderstyle为bsdialog就可以嘛!
D donkey Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-27 #15 >>我说过多遍窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.我试过很多遍都不行. 不对呀,我的很多窗口都是showmodal的,子窗口的子窗口都行,而且在showmodal之前我 还调用了子窗口的函数,并对其中一些变量赋值,都没问题呀(至少在D5下没问题)。你 是怎么实现的,把代码贴出来看看
>>我说过多遍窗口(FORM2)是子窗口,"FORM2.SHOWMODAL"行不通.我试过很多遍都不行. 不对呀,我的很多窗口都是showmodal的,子窗口的子窗口都行,而且在showmodal之前我 还调用了子窗口的函数,并对其中一些变量赋值,都没问题呀(至少在D5下没问题)。你 是怎么实现的,把代码贴出来看看
细 细文 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-27 #16 我在 PROJECT OPTIONS 中 FORMS页将 FORM2 移到 AVAILABLE FORMS中. 然后在 BUTTON1 单击: procedure TForm1.Button1Click(Sender: TObject); begin FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 IF .... then begin //处理 FORM2 的数据 ...... ...... end; end;
我在 PROJECT OPTIONS 中 FORMS页将 FORM2 移到 AVAILABLE FORMS中. 然后在 BUTTON1 单击: procedure TForm1.Button1Click(Sender: TObject); begin FORM2:=TFORM2.CREATE(APPLICATION);//在子窗口(FORM2)中输入数据后再向下执行 IF .... then begin //处理 FORM2 的数据 ...... ...... end; end;
M majorsoft Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-13 #17 莫名其妙!! 怎么求一个打印图片的控件,变成了讨论form2.showmodal
W wzs1976 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-13 #19 netkk 能将代码发给我学习以下吗? wzs4743@sina.com