uwaitingdlg.pas

来自「简单易用的按件按时计工资管理系统」· PAS 代码 · 共 68 行

unit uWaitingDlg;

interface

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

type
  TfmWaitingDlg = class(TForm)
    Image1: TImage;
    lbTitle: TLabel;
    Shape1: TShape;
    btnCancel: TSpeedButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnCancelClick(Sender: TObject);
  private
    FTitle: string;
  public
    IfCancel:Boolean;
    property Title :string read FTitle write FTitle;
    constructor Create(AOwner: TComponent; ATitle:string=''); Reintroduce;
    procedure RefreshDisplay;
  end;
var
  Pub_WaitingDlg: TfmWaitingDlg;

implementation

uses uDM;

{$R *.dfm}

constructor TfmWaitingDlg.Create(AOwner: TComponent; ATitle:string);
begin
  inherited Create(AOwner);
  IfCancel:=False;
  if ATitle='' then
    FTitle :='正在获取数据，请稍候......'
  else
    FTitle :=ATitle ;
  lbTitle.Caption :=FTitle;
end;

procedure TfmWaitingDlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
  begin
    IfCancel := true;
  end;
end;

procedure TfmWaitingDlg.RefreshDisplay;
begin
  lbTitle.Caption :=FTitle;
  update;
end;

procedure TfmWaitingDlg.btnCancelClick(Sender: TObject);
begin
  IfCancel := true;
  btnCancel.Visible :=False;
end;

end.