焦点如何移动

Question

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
          sendMESSAGE(COMBOBOX1.Handle,WM_KEYDOWN,VK_TAB,0);
     end;
end;
这样为什么不能把EDIT的焦点移到COMBOBOX1上呢？

Answer 1

if key=#13 then  ComboBox1.SetFocus;

Answer 2

在Keydown中
if Key=VK_RETURN
  sendMESSAGE(yourhandle,WM_KEYDOWN,VK_TAB,0);
其中yourhandle应该是当前控件的句柄,而不是下一个的