在密码验证的form中,怎样才能使得在edit中输入密码后,按回车表示鼠标按了确定按钮,按ESC键关闭form

Question

按钮有Cancel和Default属性
看看吧

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then
      close;
   if key=13 then
    showmessage('确定');
end;

Answer 2

Form1.EditKeyDown(Sender: TObject;key: word);
begin
  case key of
    13: btnOKClick(Sender);  //回车
    27: Form1.Close;         //Esc
  end;
end;

Answer 3

Form1.EditKeyDown(Sender: TObject;key: word);
begin
  case key of
    13: btnOKClick(Self);  //回车
    27: ;btnEscClick(Self);        //Esc
  end;
end; 

Answer 4

同意一楼的，把button的default和cancel属性设为True就可以了

Answer 5

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then
      close;
  if key=13 then
    showmessage('确定');
end; 

Answer 6

我试过了好象不行呀!可能我表达有误,我要一进入界面,按键盘上的ESC键则关闭form,在edit中输入完密码后,按键盘上的回车键则进入下一个界面.

Answer 7

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=27 then
      close;  
end;

Answer 8

button1.default:=true;
button2.cancel:=false;