loginhit.pas

来自「本系统为演示Delphi的功能而开发设计」· PAS 代码 · 共 52 行

unit LoginHit;

interface

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

type
  TFormHit = class(TForm)
    LabelTxt: TLabel;
    ButtonOk: TButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ButtonOkClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormHit: TFormHit;

implementation

uses login;

{$R *.DFM}

procedure TFormHit.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
 End;
end;

procedure TFormHit.ButtonOkClick(Sender: TObject);
begin
Close;
end;


procedure TFormHit.FormActivate(Sender: TObject);
begin
     LabelTxt.Caption:='输入内容有误，请重试！';
end;

end.