uexcelprograss.pas

来自「超级好用的韩国数据表控件一共5个 Korea, a data table co」· PAS 代码 · 共 69 行

unit UExcelPrograss;

interface

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

type
  TExcel_Processing = class(TForm)
    Label1: TLabel;
    pBar: TProgressBar;
    sBar: TStatusBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure Excel_process_Create;
procedure Excel_Set( Max : Integer );
procedure Excel_process( Pos : Integer );
procedure Excel_process_Free;

var
  Excel_Processing: TExcel_Processing;

implementation
{$R *.DFM}
procedure Excel_process_Create;
begin
  Excel_Processing := TExcel_Processing.Create( Application );

  Excel_Processing.sbar.Visible := False;

  Excel_Processing.pBar.Min := 1;

  Excel_Processing.pBar.Visible := false;

  Excel_Processing.Hide;
  Excel_Processing.Show;
  Excel_Processing.Refresh;

End;

procedure Excel_SET( Max : Integer );
begin
  Excel_Processing.pBar.Min := 1;
  If Max < Excel_Processing.pBar.Min Then
    Excel_Processing.pBar.Visible := false
  Else
  begin
    Excel_Processing.pBar.Visible := True;
    Excel_Processing.pBar.Max := max;
  End;
End;

procedure Excel_process( Pos : Integer );
begin
  If Excel_Processing.pBar.Visible Then
    Excel_Processing.pBar.Position := Pos;
End;
procedure Excel_process_Free;
begin
  FreeAndNil( Excel_Processing );
End;

end.