当前位置: 传客网 > 学Delphi官方实例

学Delphi官方实例

2016-12-24 作者:五月之恋

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

 

--------------------------------------------------------------------------------

 

制作过程:

、新建工程后, 再添加 Form2、Form3、Form4、Form5;

、在 Form5 上分别添加一个 TProgressBar、TLabel(使用默认名称);

、打开工程源码(Project -> View Source), 贴入以下文件后运行.

--------------------------------------------------------------------------------

 

program Project1;

 

uses

 Forms,

 SysUtils,

 Unit1 in ,

 Unit2 in ,

 Unit3 in ,

 Unit4 in ,

 Unit5 in ;

 

{$R *.res}

 

begin

 Application.Initialize;

with do

try

   Application.MainFormOnTaskbar := True;

   Position := poDesktopCenter;

   ProgressBar1.Max := ;

   Show;

   Update;

   Sleep();

   Application.CreateForm(TForm1, Form1);

   Form1.Position := poDesktopCenter;

   ProgressBar1.StepBy();

   Label1.Caption := ;

   Update;

   Sleep();

   Application.CreateForm(TForm2, Form2);

   ProgressBar1.StepBy();

   Label1.Caption := ;

   Update;

   Sleep();

   Application.CreateForm(TForm3, Form3);

   ProgressBar1.StepBy();

   Label1.Caption := ;

   Update;

   Sleep();

   Application.CreateForm(TForm4, Form4);

   ProgressBar1.StepBy();

   Label1.Caption := ;

   Update;

   Sleep();

finally

   Free;

;

 Application.Run;

.



相关推荐

  • [Delphi源码]实例63 Windows标准动画.rar

    [Delphi源码]实例63Windows标准动画.rar文件名称:[Delphi源码]实例63Windows标准动画.rar文件类型:免费文件大小:174K上传日期:2013-01-2417:04:17语言:中文推荐指数:☆&

  • [Delphi源码]实例26 制作字幕滚动窗体.rar

    [Delphi源码]实例26制作字幕滚动窗体.rar文件名称:[Delphi源码]实例26制作字幕滚动窗体.rar文件类型:免费文件大小:179K上传日期:2013-01-2416:54:02语言:中文推荐指数:☆☆

  • Delphi XE6,Rad Studio XE6 Update 1 官方下载(附Delphi XE6破解)

    XE6Update1官方光盘镜像下载:http://altd.embarcadero.com/download/radstudio/xe6/delphicbuilder_xe6_upd1_win.isoXE6官方光盘镜像下载:http://

  • Delphi编程技巧常见实例问答汇集-2

     7.Delphi中对Jpeg格式文件的处理…    (1).在Uses中加入JPEG单元;    (2).定义一个全程变量,例如varAJPEG:TJPEGImage;    (3).在Form的OnCreate事件中加入:Canvas.

  • Delphi Open Tools Api实例研究

    DelphiOpenToolsApi(以下简称OTA)TA是delphi的各个版本中都有提供的一套有趣的接口,运用它你可以任意的扩展delphi的IDE,使之符合自己的需要。例如你可以扩展IDE的菜单、代码编辑器、窗口设计器、属性编辑器和控

  • 再说说Delphi的官方质量控制

    这段时间,一直跟踪Delphi质量控制中心内容的变化,越看越期待今天春季版本。为什么说呢?一句话,官方对于现在QC中提交的bug或功能建议,反馈及确认太快,一个问题,一般一两天就会从报告到打开状态,即Open.这在以往是根本看不到的。写此文

  • 一个简单的Delphi多线程实例解析

    一个简单的Delphi多线程实例解析我们都知道当前的Windows操作系统是一个“多线程”操作系统。那么什么是线程呢?线程就是进程中的一个实体,它和进程一样能够独立的执行控制,由操作系统负责调度,其区别就在于线程没有独立的存储空间,而是与同

  • 给一个delphi多线程的实例

    给一个delphi多线程的实例unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrl

  • 继续Delphi多线程实例....

    下面是关于Delphi写的一个多线程的例子....在一个FormMain窗体上放两个按钮.分别命名为:UsedThread、NoUsedThread定义一个函数:functionMyThreadFunc(P:pointer):Longint

  • Delphi编程技巧常见实例问答汇集-1

      1.Delphi怎样调用外部EXE文件?  usesWinProcs;  .  begin  WinExec(……);  .  end.  和调用Pascal库函数没什么两样。  2.Delphihint的字体和色彩如何改变  Delp

  • 计算机等级考试:Delphi编程技巧常见实例问答1

     1.Delphi怎样调用外部EXE文件?  usesWinProcs;  .  begin  WinExec(……);  .  end.  和调用Pascal库函数没什么两样。  2.Delphihint的字体和色彩如何改变  Delph

  • Delphi 编程技巧常见实例问答

    出处:Delphi论坛[2005-06-1010:19:36]作者:szyicol责任编辑:moningfeng1.delphi怎样调用外部EXE文件?  usesWinProcs;  .  begin  WinExec(……);  .  

  • delphi汇编木马制作免费课程(黑客学习基地官方制作)

    delphi汇编木马制作免费课程(黑客学习基地官方制作)很多人想学习木马制作的课程,都很想知道木马的来由及神秘的面纱!今天我门就带领大家揭穿木马的详细制作流程!也希望大家能在黑客学习基地学习到真正技术!普通会员免费试听前四课。学习delph

  • 计算机等级考试:Delphi编程技巧常见实例问答2

     x:=10;y:=10;  Form1.Canvas.Draw(x,y,Ajpeg);//以(x,y)为左上角输出JPEG文件;  //实际上其作用是当图形被破坏是使图形恢复;  (5).在’Load’或’Browse’按钮的onClic

  • Delphi编程:三层数据库构架实例解析

    【eNet硅谷动力专稿】在数据库开发方面Delphi相对于其他众多开发工具其优势在于灵活快速,且十分稳定。开发数据库首先是要连接数据库。目前,以C-S方式通过网络运行程序,一般都使用3层方式进行数据通信。所谓的三层数据库,就是在服务器端放置

  • Delphi多线程实例解析【转载】

    最近学习多线程,从网上找的例子,保存下我们都知道当前的Windows操作系统是一个“多线程”操作系统。那么什么是线程呢?线程就是进程中的一个实体,它和进程一样能够独立的执行控制,由操作系统负责调度,其区别就在于线程没有独立的存储空间,而是与

  • 想让Delphi官方支持Linux吗?

    想让官方支持Linux吗?请到这里投票:https://quality.embarcadero.com/browse/RSP-13370https://quality.embarcadero.com/browse/RSP-13378

  • Delphi调用SQL分页存储过程实例

    //-----下面是一个支持任意表的SQLSERVER2000分页存储过程//----分页存储过程开始创建-------------------------------------------------------------------

  • Delphi ActiveX Form的使用实例(下)

    声明:原创文章,转帖请注明出处:knityster-=编织者=-本文链接:hi.baidu.com/knityster/blog/item/52a96f58682446db9d82047f.html3.3ActiveForm的部署和调用接下

  • Unity官方实例教程 Roll-a-Ball

      前言西安ios培训www.4gosc.com北邮在线为您提供ios技术开发指导  官方视频所用的unity版本是4.3的,而现在unity最新的版本是5.2,有很多东西都不一样了,所以视频里面的一些做法需要根据最新的版本进行一些修改,在

返回
顶部