学Delphi官方实例

update delphi

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

 

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

 

制作过程:

、新建工程后, 再添加 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(……);  .  

你的评论

就没有什么想说的吗?

最新博客

关于我们 免责声明 移动版

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X