急：如何对回车键进行判断？

Question

如果我按回车键，我如何判断我按的是回车键？

Answer 1

在keypress事件中写
if key=char(13) then
   begin
     //做你想做的
   end;

Answer 2

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then showmessage('Enter');
end;

Answer 3

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then ShowMessage(':b');
end;

Answer 4

procedure TLoginForm.EnIDEdtKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then begin
    Key:=#0;                //清除回车
    UserEdt.SetFocus;       //跳转焦点
  end;
end;

Answer 5

用TActionList,我就是用它来控制Ctrl+Enter的

Answer 6

procedure TLoginForm.EnIDEdtKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then begin
    Key:=#0;                //去掉嘀的声音
    UserEdt.SetFocus;       //跳转焦点
  end;
end;

Answer 7

刚才仔细看了一下
在keydown事件里 key是word型
在keypress事件里 key 是char型..原来一直没注意..

Answer 8

var Key: Word;if key=#13 then

Answer 9

if key=#13 then
  结贴;

Answer 10

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
 showmessage('Enter');
  end;我试了不行啊，按回车没反应的

Answer 11

每个人都是从菜鸟来的,是的,我们是很菜,但我相信有一天,我们都将不是菜鸟,
e5022(helpid)你这样说我们是不对的哦!

Answer 12

e5022(helpid):你是什么东西当以前，你还不是一个小小的菜鸟，别以为自己了不起！你有本事，自己的作品拿出来看看让大家PP