求教：有两个dbedit1和dbedit2 想当程序运行时，编辑了dbedit1中的数据后，按‘确定’后dbedit2 得到光标，然后继续编辑dbedit2.

Question

网上找了一个例子。但是报错，例子如下：
--------------------------------------------------------------------
procedure   TAppbarMain.FormKeyPress(Sender:   TObject;   var   Key:   Char);   
  begin   
          if(Key=VK_RETURN)   then   
              begin   
              SendMessage(Handle,WM_NEXTDLGCTL,0,0);     
              Key:=0;     
              end;   
  end; 
----------------------------------------------------------------------                      
报错信息；
[Error] djwh.pas(176): Incompatible types
[Error] djwh.pas(179): Incompatible types: 'Char' and 'Integer'
[Fatal Error] yhwg.dpr(32): Could not compile used unit 'djwh.pas'谢谢！！！！

Answer 1

这段代码你是否没有加到特定组件的KeyPress事件中？

Answer 2

你定义的KEY 是char    后面却Key:=0；  这能不错吗？

Answer 3

按你的意思不就是编辑完dbedit1 回车确定到dbedit2吗、
那你就
  if(Key=VK_RETURN)       then       
    dbedit2.setfocus;
就行了

Answer 4

数据类型不匹配，另外，按你的方法，有个风险就是界面上有多于2个控件可获得焦点，并且
dbedit2的TabOrder<>dbedit1.TabOrder+1，那么dbedit2不会立刻获得焦点。if(Key=VK_RETURN) then
修改成
if Key=Char(VK_RETURN) then给你推荐一个控件 DosMove，蛮好用的。