zoukankan      html  css  js  c++  java
  • Delphi : 制作程序启动欢迎界面

    制作欢迎界面的代码,大家参考


    登陆窗体命名為:loginform.
    找到工程文件(Project -> View Source),找到如下代碼部分:
    begin
       Application.Initialize;
       Application.CreateForm(TForm1, Form1);
       Application.CreateForm(Tloginform, loginform);
       Application.Run;//到此,程序執行
    end.
    登陸窗體可以設置成在程序執行前創建:
    begin
       Application.Initialize;//初始化
       loginform:=tloginform.Create(application);//動態創建啟動窗體
       loginform.Show;//顯示
       loginform.Update;
       sleep(2000);//系統延時2秒
       loginform.Hide;//2秒后啟動窗體隱藏
       Application.CreateForm(TForm1, Form1);
       Application.CreateForm(Tloginform, loginform);
       loginform.Free;//釋放啟動窗體
       Application.Run;
    end.


    制作啟動(歡迎)窗體的另一種方法(轉載...當然自己也使用過~~):
    设置封面窗体属性使之符合启动封面要求。请修改下列封面窗体属性:
    Position = PoscreenCenter
    //运行时居于屏幕中央
    Autosize = true
    //自动适应Image控件,使启动图片完整显示
    BorderStyle = bsnone
    //窗口无标题栏及最大化、最小化及关闭按钮和边框
    Name = splashform
    程序代码解析 选择主菜单下的Project/View Scource 命令,打开这个项目的项目文件。根据下列代码进行修改。
    program Project2;
    uses
    Forms,Controls,
    Unit1 in 'Unit1.pas' {MainForm},
    Unit2 in 'Unit2.pas' {SplashForm};
    {$R *.res}
    begin
    Application.Initialize;
    SplashForm :=TSplashForm.Create(Application);
    //创建splash窗体
    SplashForm.ShowModal;
    //以模式对话框的方式显示splash窗体
    if (SplashForm.ModalResult = mrOK) then
    //如果定时时间到或单击了窗体上的图形
    begin
    Application.Title := '测试Splash窗体';
    //设置应用程序的标题
    Application.CreateForm(TMainForm, MainForm);
    //自动方式创建的主窗体
    SplashForm.Hide;
    //将启动封面窗体隐藏
    SplashForm.Release;
    //将启动封面窗体清除
    Application.Run;
    end;
    end.
    随后在splash窗体上编写下列事件代码
    procedure TSplashForm.Timer1Timer(Sender: TObject);
    begin
    SplashForm.ModalResult:= mrOK;
    //定时时刻到后的事件处理程序
    end;
    procedure TSplashForm.Image1Click(Sender: TObject);
    begin
    SplashForm.ModalResult:= mrOK;
    //单击splash窗体上图像的事件处理程序 ,當用戶希望可以單擊啟動窗體的圖片,而不用等待就可以進入//主窗體時,可以加上這一條件
    end;

  • 相关阅读:
    2.2、Dstreams数据源之高级数据源
    配置git 环境变量
    AngularJS的 $resource服务 关于CRUD操作
    如何安装和使用Karma-Jasmine
    ui-router 留存
    angular的service与factory
    留存- angularjs 弹出框 $modal
    js 的eval()方法 计算某个字符串,并执行其中的的 JavaScript 代码;
    javascript函数作用域和提前声明
    npm 全局环境变量配置
  • 原文地址:https://www.cnblogs.com/jijm123/p/7858527.html
Copyright © 2011-2022 走看看