怎样在COMBOBOX1按回车自动焦点到COMBOBX2

Question

在ComboBox1的KeyPress事件中写入if Key=#13 then ComboBox2.SetFocus

Answer 1

COMBOBOX1 keypress事件中写
if ord(key)=13 then 
  combobox2.setfocus;

Answer 2

如果已设好Tab 顺序，
也可以用下面这一种procedure TAddUser.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   If Key=#13 Then  PostMessage(AddUser.AciveControl.Handle,WM_KEYDOWN, VK_TAB, 0);
end;

Answer 3

form1.keypreview:=true;
procedure Tform1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end; 
end;