uwait.pas

来自「Wordreport是使用word设置打印格式的一种报表打印控件」· PAS 代码 · 共 43 行

unit uWait;

interface

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

type
  TfWait = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    jd: TGauge;
    BitBtn1: TBitBtn;
    jd2: TGauge;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Stop: boolean;
  end;

var
  fWait: TfWait;

implementation

{$R *.DFM}

procedure TfWait.FormCreate(Sender: TObject);
begin
  Stop:=False;
end;

procedure TfWait.BitBtn1Click(Sender: TObject);
begin
   stop:=true;
end;

end.