一个程序开始端像dehpi会有一张图片以便缓冲,问这张图片怎么在程序中设制?
解决方案 »
- DBGrid 数据删除
- 诚聘公司!!!
- 这个问题好难啊。
- cxgird中,查寻不同表单,列名也跟着表单字段变化,用代码实现怎么做呢?
- TreeView1的onchange事件如何中断
- combobox的问题??急 用呀??
- 调用DLL文件的问题?急!!!
- 在Delphi5中如何取得打印机的信息,超值大分奉送
- 我这个月准备做一个售后服务的管理系统(边学边做),感兴趣的菜鸟们,我们可以一起做。
- 请大家指教.
- 如何在光标处显示文本?
- procedure Move; { 静态方法 } procedure Flash; virtual; { 虚 方 法 } move 和flash在用的时候效果有什么不同
Application.Initialize;
//控制程序只能有一个运行的实例
if FindWindow(nil, 'UntMain') <> 0 then
begin
Application.MessageBox('程序已经启动! ', '系统信息', MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL);
Exit;
end;
//你要的答案在这里,当然要自己新建一个SplashFrm。上面放一个Image,载
//入一张图片
SplashFrm := TSplashFrm.Create(Application);
SplashFrm.Show;
SplashFrm.Update; Application.Title := 'MainFrm';
Application.CreateForm(TMain, Main);
//保持两秒
sleep(2000); SplashFrm.Hide;
SplashFrm.Free;
//结束
Application.Run;