怎样在edit中通过回车执行一个按纽的事件？

Question

怎样在edit中通过回车执行一个按纽的事件？

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = 13) then Button1Click(nil);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Edit box Enter down');
end;
                               ______________http://hthunter.vicp.net/

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = vk_return) then Button1Click(nil);
end;就是这个

Answer 3

执行Edit1keyDown事件:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = 13) then Button1Click(nil);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Edit box Enter down');
end;

Answer 4

混分的人很多啊，我不是混分的，只是进来看看答案是否正确而已，hehe...

Answer 5

就是在Edit的onKeyDown事件中判断按下的键是否为回车键，如果是执行某按钮Button1Click(nil);

Answer 6

if (Key = 13) then Button1Click(nil);不好意思，借用一下，

Answer 7

呵呵，能不能混到分也要看楼主愿不愿意结帖了                               ______________http://hthunter.vicp.net/

Answer 8

if key=#13 then 
{Your code}

Answer 9

我顺便问一下，两个问题
1。key=#13 和 key=13 两者有神么区别，什么时候要加＃号，什么时候不加？
2。Button1Click(nil) 和 Button1Click(Sender)两者有什么区别？

Answer 10

在Edit的KeyDown事件里用 key=13 因为key是word类型;
在Edit的KeyPress事件里用key=#13 因为key是char类型;
还可以这样实现：
if (Key = #13) then Button1。OnClick(self);(一般用在KeyPress事件下)

Answer 11

procedure TForm1.Edit1Keypress(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = #13) then 
  Button1.setfocus;
end;
这样也可以的

Answer 12

procedure TForm1.Edit1Keypress(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = #13) then 
    button1.click;
end;
//这样一般不会出什么问题的

Answer 13

if key=13 then
    button1.click;