新手请教，如何在TEdit和TComboBox中响应回车？

[hongye_leaf]

如何在TEdit和TComboBox中响应回车？
在下刚入门，请指教！！

[ScoutKing]

相应keydown事件：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=13) then
begin
............
end;
end;

[mygodsos]

在edit1控件的onkeypress事件中双击鼠标，然后会在code页中出现一个
procedure Tform.edit1keypress(senter:Tcomponent;var key:char);
begin
end;
然后你在begin和end中写如下代码就行了
if key=#13 then
begin
.......
.......
end;

[luoweicaisd]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
showmessage('enter press');
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
showmessage('enter press');
end;

[honey_001]

同意ScoutKing(失眠夜)的观点.

[qhdsfh]

onkeypress事件下写：
If Key = #13 Then
SelectNext(ActiveControl,True,True);