progress.pas

一个Delphi写的跟考勤机门禁机收款机的接品软件源码

unit Progress;

interface

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

type
  TdlgProgress = class(TForm)
    Animate: TAnimate;
    ProgressBar: TProgressBar;
    btnOk: TButton;
    msg: TLabel;
    msg2: TLabel;
    procedure btnOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    bCancel: Boolean;
    bCanClose: Boolean;
  end;

implementation

{$R *.DFM}

procedure TdlgProgress.btnOkClick(Sender: TObject);
begin
  bCancel:=True;
end;

procedure TdlgProgress.FormShow(Sender: TObject);
begin
  bCancel:=False;
  bCanClose:=True;
end;

procedure TdlgProgress.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  bCancel:=True;
  CanClose:=bCanClose;
end;

end.