怎样把目标固定在一个FORM里??? 我做了个MAINFORM,想在使用前一定要填一些资料,在另外的REG_FORM里边,先要填完才能进入MAINFORM,两个都是fsnormal。要改REG_FORM哪个属性~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在OnCreate或OnShow时把属性设完, 确认在菜单Project\Options...中,你的MAINFORM是main form将MAINFORM的visible属性设为false,REG_FORM的visible属性设为true在项目文件(*.dpr)中写:begin Application.Initialize; Application.ShowMainForm :=false; //这一行是自己加的 Application.CreateForm(TMAINFORM, MAINFORM); Application.CreateForm(TREG_FORM, REG_FORM); Application.Run;end.这样,程序运行时,MAINFORM不可见,只能看到REG_FORM填完后,如果不符合要求,调用Application.terminate;结束程序退出如果符合要求:MAINFORM.show; //调出MAINFORMself.close; //关闭自己(REG_FORM) 你可以设置登陆窗体为主窗体,登陆后隐藏,当程序关闭时,调用登陆窗体.close; 来个简单的mainform的onpaint事件procedure TForm1.FormPaint(Sender: TObject);begin @onpaint:=nil; REG_FORM。showmodal;end;其余的自己控制 一般的LOGO窗口可以如下方式实现:begin Application.Initialize; Application.CreateForm(TREG_FORM, REG_FORM); REG_FORM.show; While Reg_Form.visible do Application.ProcessMessages; {Reg_Form填完后关闭,将visible属性设置为false;} Reg_form.free; Application.CreateForm(TMAINFORM, MAINFORM); Application.Run;end. 试试看,具体怎么编写你可能有你自己的考虑。 一个通用的界面问题 如何找出一个字符串在另一个字符的所有位置! 请问大家一下..如何把两个FROM组合在一起. 在WebBrowser中,显示图片,为什么显不到边呀 招聘Delphi程序员3名 在线等,急!!!关于 DBChart 的问题? 编程的“定律”总结,奉献者有分,不够再加! ▲讨论!现在程序员好找工作吗,以后的发展空间有多大???▲ 那个函数是弹出一个窗口让用户输入一个数值? 急!急!急!!!!!!!!! 排序问题,字段Department,内容有:一部、二部、三部、四部,用Order by Department.. 又是form问题。请各位大哥指教~!
将MAINFORM的visible属性设为false,REG_FORM的visible属性设为true
在项目文件(*.dpr)中写:
begin
Application.Initialize;
Application.ShowMainForm :=false; //这一行是自己加的
Application.CreateForm(TMAINFORM, MAINFORM);
Application.CreateForm(TREG_FORM, REG_FORM);
Application.Run;
end.这样,程序运行时,MAINFORM不可见,只能看到REG_FORM
填完后,如果不符合要求,调用Application.terminate;结束程序退出
如果符合要求:
MAINFORM.show; //调出MAINFORM
self.close; //关闭自己(REG_FORM)
mainform的onpaint事件
procedure TForm1.FormPaint(Sender: TObject);
begin
@onpaint:=nil;
REG_FORM。showmodal;
end;
其余的自己控制
begin
Application.Initialize;
Application.CreateForm(TREG_FORM, REG_FORM);
REG_FORM.show;
While Reg_Form.visible do
Application.ProcessMessages;
{Reg_Form填完后关闭,将visible属性设置为false;}
Reg_form.free;
Application.CreateForm(TMAINFORM, MAINFORM);
Application.Run;
end. 试试看,具体怎么编写你可能有你自己的考虑。