ufrminputbox.~pas

来自「一个会议签到系统」· ~PAS 代码 · 共 89 行

unit uFrmInPutBox;

interface

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

type
  TFrmInPutBox = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    BtnCancel: TBitBtn;
    BtnSure: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BtnSureClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    StrA:String; 
    { Public declarations }
  end;

var
  FrmInPutBox: TFrmInPutBox;

implementation

uses uFunSys;

{$R *.DFM}

procedure TFrmInPutBox.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
  FrmInPutBox:=nil;
end;

procedure TFrmInPutBox.FormShow(Sender: TObject);
begin
  Edit1.Text:=StrA; 
end;

procedure TFrmInPutBox.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = 13 then  begin
      StrX:=Edit1.Text;
      Close;
   end;
   if Key = 27 then Close; 
end;

procedure TFrmInPutBox.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then  begin
     StrX:=Edit1.Text;
     Close;
   end;
   if Key = 27 then Close; 
end;

procedure TFrmInPutBox.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key ='''' then Key:=#0;
end;

procedure TFrmInPutBox.BtnSureClick(Sender: TObject);
begin
     StrX:=Edit1.Text;
     Close;
end;

procedure TFrmInPutBox.BtnCancelClick(Sender: TObject);
begin
  Close;
end;

end.