荔园在线

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

[回到开始] [上一篇][下一篇]

发信人: jek (你的名字我的姓氏), 信区: Program
标  题: 程序开始时先显示信息框
发信站: BBS 荔园晨风站 (Sat Jun 10 09:53:18 2000), 转信

程序开始时先显示信息框

一、软件进入主窗口前，先显示一个信息框，告诉用户一些有关该软件的信息，比如软件
    名称，版本号等。该信息框在显示1～2秒后自动消失。
    1.建立New Application,这时系统自动生成一个Form1,这作为主Form.

    2.File->New Form 建立一个新Form为Form2,这个作为信息框。

    3.在Form2上添加组件TTimer(System控件条上），用于设定信息框的显示时间。
    4.TTimer的事件OnTimer中加入：Form2->Close();

    5.在WinMain()函数中加入：
        Application->CreateForm(__classid(TForm2), &Form2);
        Form2->ShowModal( ); //这句要自己加入
        Application->Run();
    并且要把Form2的头文件Unit2.h包括到WinMain()所在的Project1.cpp中。

    6.运行程序，将先显示Form2,显示时间由TTimer的Interval属性决定，1000是一秒。

二、软 件 封 面 的 实 现
    现 代 软 件 设 计 的 流 行 做 法 是， 在 程 序 运 行 完 成 初 始 化 之 前
  ? 先 调 用 一 幅 画 面 做 为 封 面， 通 常 是1/4 屏 幕 大 小， 显 示 一 下
    软 件 的 名 称、 作 者、 版 本 等 信 息。 要 用C++ Builder 实 现 这 样 的
    功 能， 方 法 很 简 单：

① 自 定 义 一 窗 体 类 TSplashForm， 将 其 设 置 成" 透 明 窗 口"， 即 Border
   Icons 下 的 所 有 选 项 均 置 成false， BorderStyle=bsNone，FormStyle=fsSta
   yOnTop， Position=poScreenCenter；

② 在TSplashForm 窗 体 上 放 置 一TPanel（ 相 当 于 图 形 的 镜 框）；

③ 在TPanel 上 放 置 一TImage 控 件， 调 入 所 需 要 的 图 形;

④ 对WinMain 函 数 稍 加 修 改， 加 入 如 下 所 示 代 码 即 可。 需 要 指 出
   的 是， 这 段 代 码 通 过 函 数 FindWindow， 搜 索 内 存 中 是 否 有 窗 口
   标 题 为 "Demo" 应 用 程 序 存 在， 若 存 在， 则 退 出 程 序 的  运 行。
   该 功 能 可 防 止 程 序 的 再 次 运 行。 在 某 些 场 合 这 样 设 计 是 必
   须 的。

                    WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
                    {
                       try
                        {
                            if(FindWindow(NULL,"Demo")!=0)
                            {
                              Application- >MessageBox (" 程 序 已 经 运 行!",
                              "警告",MB_ICONSTOP);
                              return 0;
                            }

                           TSplashForm *splash=new TSplashForm(Application);

                            splash- >Show();

                            splash- >Update();

                            Application- >Initialize();

                           Application- >CreateForm(__classid(TForm1), &Form1);

                            splash- >Close();

                            delete splash;

                            Application- >Run();

                        }

                        catch (Exception &exception)

                        {

                            Application- >ShowException(&exception);

                        }

                        return 0;

                    }




--
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.118]

[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店