progressform.pas

来自「著名的SecureBlackBox控件完整源码」· PAS 代码 · 共 40 行

unit ProgressForm;

interface

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

type
  TfrmProgress = class(TForm)
    gbProgress: TGroupBox;
    btnCancel: TButton;
    lSourceFile: TLabel;
    lDestFile: TLabel;
    lSourceFilename: TLabel;
    lDestFileName: TLabel;
    lProcessed: TLabel;
    pbProgress: TProgressBar;
    lProgress: TLabel;
    procedure btnCancelClick(Sender: TObject);
  private
    FCanceled : boolean;
  public
    property Canceled: boolean read FCanceled write FCanceled;
  end;

var
  frmProgress: TfrmProgress;

implementation

{$R *.DFM}

procedure TfrmProgress.btnCancelClick(Sender: TObject);
begin
  FCanceled := true;
end;

end.