progress.pas

来自「上传个考勤系统,希望别人也能用.该代码只能算初级的东东,软件代码复用性不高,重复」· PAS 代码 · 共 52 行

unit Progress;

interface

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

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
if (MsgBox(Screen.ActiveForm.Handle, PChar(SAuEEOOGOEyYOEOAg), msg_information, MB_YESNO or MB_ICONINFORMATION)=IDYES) then
  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.