如何使MDI听话

牛魔王的表弟 2000-03-17 07:30:00
我作了一个小程序,mainform.formstyle->MDIform,childform.formstyle->MDIchildform。之后,我想在程序运行前加一个欢迎界面welcomform(就象打开delphi时那个兰色的宫殿),运行几秒后关闭,再显示mainform.
在welcomform.timer1.ontime写
begin
timer1.enable:=false;
welcomform.close;
mainform.showmodel;
end; 结果就是不行,delphi提示mainform和childform的visiable不能为true,该怎么样做才能达到我的要求呢?
...全文
149 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Jean 2000-03-19
  • 打赏
  • 举报
回复
看它是如何用Welcome的(它叫Splash).
Mutex 2000-03-18
  • 打赏
  • 举报
回复
dpr文件可以采取如下方法:
Application.Initialize;
Application.Title := 'The Title of Application';

Screen.Cursor:=crHourGlass;
WelcomeFrm:=TWelcomeFrm.Create(Application);
WelcomeFrm.Show;
WelcomeFrm.Update;

Application.CreateForm(TMainFrm, MainFrm);
WelcomeFrm.Free;
Screen.Cursor:=crDefault;
Application.Run;

另外如果要想在WelcomeFrm显示的同时显示系统载入的进度,
可以通过其他Form传递message给WelcomeFrm,让WelcomeFrm
显示进度(就象phoneshop等启动时显示加载项目一样)。
光明山人 2000-03-18
  • 打赏
  • 举报
回复
你是让welcomform自动创建吧,改一下:
在dpr文件中这样创建welcomform:
welcomform := Twelcomform.create( application );
welcomform.show;

你最好在dpr文件中计算延迟时间:
atime := GetTickCount;
while 1000*(GetTickCount-atime)<HowManySeconds do
begin
end;

然后按正常方式创建mainform和childform:
Application.CreateForm( Tmainform, mainform );
Application.CreateForm( Tchildform, childform );

你可以在显示mainform后关闭welcomform。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧