学习官方示例 - TApplication.CreateForm

最新推荐文章于 2021-01-14 12:06:43 发布

weixin_33751566

最新推荐文章于 2021-01-14 12:06:43 发布

阅读量209

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/320573

本文介绍了一个使用Delphi实现的应用程序加载进度条示例。该示例通过创建多个表单并逐步更新进度条来展示加载过程。从初始化到各个表单的成功加载，详细记录了每一步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为什么80%的码农都做不了架构师？>>>

本例源码下载, 运行效果图:

制作过程:
1、新建工程后, 再添加 Form2、Form3、Form4、Form5;
2、在 Form5 上分别添加一个 TProgressBar、TLabel(使用默认名称);
3、打开工程源码(Project -> View Source), 贴入以下文件后运行.

program Project1;

uses
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  with TForm5.Create(nil) do
  try
    Application.MainFormOnTaskbar := True;
    Position := poDesktopCenter;
    ProgressBar1.Max := 100;
    Show;
    Update;
    Sleep(1000);
    Application.CreateForm(TForm1, Form1);
    Form1.Position := poDesktopCenter;
    ProgressBar1.StepBy(25);
    Label1.Caption :=  'Form1 loaded successfully.';
    Update;
    Sleep(1000);
    Application.CreateForm(TForm2, Form2);
    ProgressBar1.StepBy(25);
    Label1.Caption :=  'Form2 loaded successfully.';
    Update;
    Sleep(1000);
    Application.CreateForm(TForm3, Form3);
    ProgressBar1.StepBy(25);
    Label1.Caption :=  'Form3 loaded successfully.';
    Update;
    Sleep(1000);
    Application.CreateForm(TForm4, Form4);
    ProgressBar1.StepBy(25);
    Label1.Caption :=  'Form4 loaded successfully.';
    Update;
    Sleep(1000);
  finally
    Free;
  end;
  Application.Run;
end.

转载于:https://my.oschina.net/hermer/blog/320573