noinputunit.pas

来自「工资管理系统」· PAS 代码 · 共 65 行

unit NoInputUnit;

interface

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

type
  TNoInput = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NoInput: TNoInput;

implementation

{$R *.DFM}

procedure TNoInput.FormShow(Sender: TObject);
begin
edit1.Text:='1';
edit1.setfocus;
edit1.SelectAll;
end;

procedure TNoInput.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Length(edit1.Text)=0 then
  canclose:=false;
end;

procedure TNoInput.BitBtn2Click(Sender: TObject);
begin
   Close;
end;

procedure TNoInput.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;


procedure TNoInput.Edit1Change(Sender: TObject);
begin
     bitbtn1.Enabled:=length(edit1.Text)>0;
     bitbtn2.Enabled:=length(edit1.Text)>0;
end;

end.