mess.~pas

Delphi编程┃Delphi数据库编程

unit Mess;

interface

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

type
  TMessForm = class(TForm)
    Label1: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Bevel1: TBevel;
    Timer1: TTimer;
    TimeProgress: TProgressBar;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MessForm: TMessForm;

implementation

{$R *.dfm}

procedure TMessForm.SpeedButton1Click(Sender: TObject);
begin
  Label1.Caption :='确定';
  Close;
end;

procedure TMessForm.SpeedButton2Click(Sender: TObject);
begin
  Label1.Caption :='取消';
  Close;
end;

procedure TMessForm.FormShow(Sender: TObject);
begin
  MessForm.Width := Label1.Width +20;
  Label1.Top := ((MessForm.ClientHeight -Bevel1.Height) div 2) - (Label1.Height div 2);
  SpeedButton2.Left :=MessForm.ClientWidth- SpeedButton1.Width- SpeedButton2.Width -10;
  SpeedButton1.Left :=MessForm.ClientWidth- SpeedButton1.Width-10;

  //如果只是确定，加入计时
  if not SpeedButton2.Visible then
  begin
    TimeProgress.Visible := true;
    TimeProgress.Position :=0;
    Timer1.Enabled := true;
  end else
    TimeProgress.Visible := false;
end;

procedure TMessForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_ESCAPE) and SpeedButton2.Visible then
     SpeedButton2Click(nil);

  if Key=VK_RETURN then
     SpeedButton1Click(nil);
end;

procedure TMessForm.Timer1Timer(Sender: TObject);
begin
  TimeProgress.Position := TimeProgress.Position + 1;
  if TimeProgress.Position = 3 then  Close;
end;

procedure TMessForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Timer1.Enabled := false;
end;

procedure TMessForm.FormDblClick(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
end;

end.