unitprogressbar.pas

来自「串口短信猫收发软件。支持西门子TC35i设备」· PAS 代码 · 共 46 行

{*******************************************************}
{                                                       }
{  名称：TProgressBarForm类                             }
{  功能：                                               }
{      1.显示状态条                                     }
{  调用：                                               }
{      1.创建实例后调用Show方法                         }
{      2.可改变显示文字                                 }
{      3.可改变进度条                                   }
{                                                       }
{*******************************************************}

unit UnitProgressBar;

interface

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

type
  TProgressBarForm = class(TForm)
    Panel1: TPanel;
    Panel: TPanel;
    ProgressLabel: TLabel;
    ProgressBar: TProgressBar;
    Animate1: TAnimate;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TProgressBarForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.