delphi_进度条

时间:2014-02-08 08:55:21
【文件属性】:
文件名称:delphi_进度条
文件大小:262KB
文件格式:RAR
更新时间:2014-02-08 08:55:21
delphi_进度条 unit FrmProgressUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TFrmProgress = class(TForm) ProgressBar: TProgressBar; procedure FormShow(Sender: TObject); private FProgressMin:Integer; FProgressMax:Integer; FProgressPostion:Integer; procedure SetProgressMax(const Value: Integer); procedure SetProgressMin(const Value: Integer); procedure SetProgressPostion(const Value: Integer); public property ProgressMin:Integer read FProgressMin write SetProgressMin; property ProgressMax:Integer read FProgressMax write SetProgressMax; property ProgressPostion:Integer read FProgressPostion write SetProgressPostion; end; var FrmProgress: TFrmProgress; implementation {$R *.dfm} procedure TFrmProgress.FormShow(Sender: TObject); begin Application.ProcessMessages; end; procedure TFrmProgress.SetProgressMax(const Value: Integer); begin FProgressMax := Value; ProgressBar.Max:=FProgressMax; end; procedure TFrmProgress.SetProgressMin(const Value: Integer); begin FProgressMin := Value; ProgressBar.Min:=FProgressMin; end; procedure TFrmProgress.SetProgressPostion(const Value: Integer); begin FProgressPostion := Value; ProgressBar.Position:=FProgressPostion; end; end.
【文件预览】:
进度条
----__history()
--------FrmProgressUnit.pas.~9~(976B)
--------FrmProgressUnit.pas.~7~(530B)
--------FrmProgressUnit.dfm.~3~(814B)
--------Project1.dpr.~1~(230B)
--------Unit1.pas.~6~(5KB)
--------ShowProgress.pas.~7~(682B)
--------uProgress.pas.~2~(2KB)
--------FrmProgressUnit.pas.~14~(1KB)
--------Unit1.pas.~4~(4KB)
--------ShowProgress.pas.~2~(317B)
--------FrmProgressUnit.pas.~11~(1KB)
--------ShowProgress.pas.~3~(350B)
--------uProgress.pas.~11~(1KB)
--------ShowProgress.dfm.~1~(329B)
--------FrmProgressUnit.dfm.~6~(496B)
--------uProgress.pas.~9~(2KB)
--------ShowProgress.dfm.~3~(497B)
--------FrmProgressUnit.pas.~12~(1KB)
--------ShowProgress.dfm.~2~(336B)
--------FrmProgressUnit.dfm.~4~(372B)
--------Unit1.pas.~3~(4KB)
--------FrmProgressUnit.pas.~13~(1KB)
--------FrmProgressUnit.dfm.~2~(815B)
--------uProgress.pas.~4~(2KB)
--------Unit1.pas.~5~(5KB)
--------Unit1.pas.~1~(605B)
--------uProgress.pas.~6~(2KB)
--------ShowProgress.pas.~1~(310B)
--------ShowProgress.pas.~5~(675B)
--------uProgress.pas.~10~(1KB)
--------Unit1.pas.~7~(3KB)
--------uProgress.pas.~3~(2KB)
--------FrmProgressUnit.dfm.~1~(569B)
--------Unit1.pas.~2~(3KB)
--------uProgress.pas.~8~(2KB)
--------Unit1.pas.~8~(1KB)
--------ShowProgress.pas.~4~(367B)
--------ShowProgressBar.dpr.~1~(237B)
--------FrmProgressUnit.dfm.~9~(557B)
--------FrmProgressUnit.dfm.~8~(553B)
--------FrmProgressUnit.dfm.~5~(497B)
--------Unit1.dfm.~2~(1KB)
--------ShowProgress.dfm.~5~(593B)
--------FrmProgressUnit.pas.~10~(1009B)
--------ShowProgress.pas.~6~(709B)
--------Unit1.dfm.~1~(505B)
--------FrmProgressUnit.pas.~6~(516B)
--------FrmProgressUnit.pas.~8~(664B)
--------FrmProgressUnit.dfm.~7~(522B)
--------uProgress.pas.~7~(2KB)
--------uProgress.pas.~5~(2KB)
--------ShowProgress.dfm.~4~(497B)
--------FrmProgressUnit.pas.~5~(521B)
----ShowProgressBar.identcache(455B)
----ShowProgress.dfm(525B)
----ShowProgressBar.exe(532KB)
----ShowProgressBar.dproj(5KB)
----ShowProgressBar.dproj.local(2KB)
----FrmProgressUnit.pas(1KB)
----FrmProgressUnit.dcu(5KB)
----ShowProgress.dcu(4KB)
----uProgress.pas(1KB)
----ShowProgress.pas(684B)
----ShowProgressBar.dpr(397B)
----uProgress.dcu(2KB)
----ShowProgressBar.res(5KB)
----FrmProgressUnit.dfm(557B)

网友评论

  • 还不错,可以借鉴一下!
  • 还不错,借鉴