Delphi窗口进度条比如,显现在状况栏-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝26
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:136回复:0

  Delphi窗口进度条比如,显现在状况栏

楼主#
更多 发布于:2016-06-03 23:03

Delphi窗体状况栏查看框作用,完成相似进度条作用的状况栏,不知道怎么在窗体上加进度条的可参考下,代码还是适当简略的。

unit Unit1;interfaceuses  Windows, Messages,

SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Buttons,

ImgList, StdCtrls, ComCtrls, jpeg, ExtCtrls, ActnList,  XPStyleActnCtrls,

ActnMan, ToolWin, ActnCtrls, ActnMenus;type  TForm1 = class(TForm)  

 StatusBar1: TStatusBar;    ProgressBar1: TProgressBar;    Timer1: TTimer;  

 procedure FormCreate(Sender: TObject);    procedure Timer1Timer(Sender:

TObject);  private    { Private declarations }  public    { Public declarations

}  end;var  Form1: TForm1;implementation{$R *.dfm}procedure

TForm1.FormCreate(Sender: TObject);begin  ProgressBar1.Parent := StatusBar1;

 ProgressBar1.Left := StatusBar1.Width-ProgressBar1.Width;  ProgressBar1.Top :=

4;  ProgressBar1.Show;  StatusBar1.Panels[3].Text := '明日科技';end;procedure

TForm1.Timer1Timer(Sender: TObject);begin

 ProgressBar1.Position:=ProgressBar1.Position+5;  if

ProgressBar1.Position>=100 then  begin    timer1.Enabled := false;  

 showmessage('窗体已成功载入');    ProgressBar1.Position:=0;  end;end;end.

在窗体的状况栏显现进度条的比如,Delphi代码完成。

已读:

次 保藏这篇文章封闭这篇文章打印这篇文章复制连接

优质IT资源分享社区为你提供此文。

本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。

Delphi教程视频

优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客