progressfrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 38 行

unit ProgressFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SDIfrm, ComCtrls, StdCtrls, ExtCtrls;

type
  TProgressForm = class(TSDIForm)
    Label1: TLabel;
    ProgressBar1: TProgressBar;
  private
    { Private declarations }
  public
    function ShowModalProgress(A:integer):integer;
    { Public declarations }
  end;

var
  ProgressForm: TProgressForm;

implementation

{$R *.DFM}

function TProgressForm.ShowModalProgress(a:integer):integer;
var
  i:integer;
begin
  ProgressBar1.Max:=10000;
  for i := 1 to 10000 do
    ProgressBar1.Stepit; // Move one Step amount
  Result := ShowModal;
end;

end.