mess.pas

delphi框架可以学习, 写的很好的

UNIT Mess;

INTERFACE

USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, ComCtrls, RzPrgres,
  RzBckgnd, RzPanel, RzButton, RzLabel, RzEdit;

TYPE
  TfrmMess = CLASS(TForm)
    Timer1: TTimer;
    Bevel1: TBevel;
    RzPanel1: TRzPanel;
    imgXW: TImage;
    RzSeparator1: TRzSeparator;
    pbTime: TRzProgressBar;
    btnOK: TRzBitBtn;
    btnCancel: TRzBitBtn;
    imgJG: TImage;
    imgTS: TImage;
    mmTip: TRzMemo;
    PROCEDURE FormCloseQuery(Sender: TObject; VAR CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    PROCEDURE Timer1Timer(Sender: TObject);
    procedure RzPanel1DblClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
   PRIVATE
      { Private declarations }
   PUBLIC
     UserSelect: Boolean;
   END;

VAR
  frmMess: TfrmMess;

IMPLEMENTATION

{$R *.dfm}

PROCEDURE TfrmMess.Timer1Timer(Sender: TObject);
BEGIN
  pbTime.IncPartsByOne;
  if pbTime.PartsComplete = pbTime.TotalParts then Close;
END;

PROCEDURE TfrmMess.FormCloseQuery(Sender: TObject; VAR CanClose: Boolean);
BEGIN
   Timer1.Enabled := false;
END;

procedure TfrmMess.FormCreate(Sender: TObject);
begin
  imgTS.Top  := imgXW.Top;
  imgJG.Top  := imgXW.Top;
  imgTS.Left := imgXW.Left;
  imgJG.Left := imgXW.Left;
end;

procedure TfrmMess.RzPanel1DblClick(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
end;

procedure TfrmMess.btnOKClick(Sender: TObject);
begin
   UserSelect := True;
   Close;
end;

procedure TfrmMess.btnCancelClick(Sender: TObject);
begin
   UserSelect := false;
   Close;
end;

procedure TfrmMess.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   IF (Key = VK_ESCAPE) AND btnCancel.Visible THEN
      btnCancelClick(nil);

   IF Key = VK_RETURN THEN
      btnOKClick(NIL);

   Key := 0;
end;

END.