rm_progr.pas

进销存·完整的·有数据库的·非常完整·只得参考

{*****************************************}
{                                         }
{         Report Machine v2.0             }
{             Progress dialog             }
{                                         }
{*****************************************}

unit RM_progr;

interface

{$I RM.inc}

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

const
  CM_BeforeModal = WM_USER + 1;

type
  TRMProgressForm = class(TForm)
    btnCancel: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure btnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FReport: TRMReport;
    FOnBeforeModal: TNotifyEvent;
    procedure CMBeforeModal(var Message: TMessage); message CM_BeforeModal;
  public
    { Public declarations }
    FirstCaption: String;
    property OnBeforeModal: TNotifyEvent read FOnBeforeModal write FOnBeforeModal;
    function Show_Modal(AReport: TRMReport): Integer;
  end;

implementation

uses RM_Utils;

{$R *.DFM}

function TRMProgressForm.Show_Modal(AReport: TRMReport): Integer;
begin
  FReport := aReport;
  Label2.Caption := '';
  PostMessage(Handle, CM_BeforeModal, 0, 0);
  Result := ShowModal;
end;

procedure TRMProgressForm.btnCancelClick(Sender: TObject);
begin
  FReport.Terminated := True;
  ModalResult := mrCancel;
end;

procedure TRMProgressForm.CMBeforeModal(var Message: TMessage);
begin
  if Assigned(FOnBeforeModal) then
    FOnBeforeModal(Self);
end;

procedure TRMProgressForm.FormCreate(Sender: TObject);
begin
	Font.Name := RMLoadStr(SRMDefaultFontName);
  Font.Size := StrToInt(RMLoadStr(SRMDefaultFontSize));
  Font.Charset := StrToInt(RMLoadStr(SCharset));

  btnCancel.Caption := RMLoadStr(SCancel);
end;

end.