A very simple question!! 我要在一个窗口form1里面点击"ok"按纽连接到form2窗口,请问具体设置过程.我是初学者,请务必说详细点!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1,在FORM1的单元里USES FORM2的单元;比如 USES UNIT2;2,FORM2。SHOWMODAL; uses unit2button.onclick里面写application.createform(TForm2,form2);form2.show; 在ok按钮里编写代码:form2.showmodal;再编译程序,默认下一个提示框的ok钮就可以了! uses unit2procedure TForm1.buttononclick(sender:TObject);begin Form2:=TForm2.create(application); form2.show;end; 1,在FORM1的单元里USES FORM2的单元;比如 USES UNIT2;2、 if not assigned(Frm2) then Application.CreateForm(TFrm2,Frm; try Frm2.ShowModal; finally Frm2.Free ; Frm2:=nil ; end; 如果form2是动态建立的话soaringsouth(栈桥捉鳖) 的代码很好如果你已建立了form2窗体 那就在ok中写form2.show use unit2 form2.showmodal; 删除记录报错:bof,eof中有一个为真!哪位大哥快帮忙啊 Delphi、PB程序 EnableMenutem 使灰色menu 正常色后 点击没有反应 兄弟想写一个类似php解析器的东西,用于客户端的静态发布,给点建议先。 这几本书,那本最好? 关于全局临时表修改记录的问题 急急急! 如何通过IOR文件定位CORBA服务器. 怎么做报价模板? 200分,求找零钱算法 如何获得一变量类型,值!DELPHI提供这种函数了吗?? 屏保的问题 table的问题 最好的界面控件,up有分
2,FORM2。SHOWMODAL;
form2.show;
form2.showmodal;
再编译程序,默认下一个提示框的ok钮就可以了!
procedure TForm1.buttononclick(sender:TObject);
begin
Form2:=TForm2.create(application);
form2.show;
end;
2、
if not assigned(Frm2) then
Application.CreateForm(TFrm2,Frm;
try
Frm2.ShowModal;
finally
Frm2.Free ;
Frm2:=nil ;
end;
如果你已建立了form2窗体 那就在ok中写form2.show
form2.showmodal;