一个奇怪的问题。在线等待~~~

Question

procedure TForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    Perform(Wm_NextDlgctl,0,0);
  end;
end;
----------------------------------------
这是实现按回车焦点到下一个控件的代码，现在我在窗体上加了groupbox后无法实现这个功能了。为什么？

Answer 1

问一下楼主，你写在窗体的事件里能实现？
你的问题是groupbox默认的Taborder属性是false，你必须把它变成true，那样它才能获得焦点

Answer 2

geyobing(银翼天使)
我已经改过来了，但是仍然没用啊
我有3个groupbox它们的taborder是0，1，2，在每个groupbox里都有控件，他们有自己的taborder分别也是0,1,2,3....hiflower(花)
这个我一开始就设好了

Answer 3

我没问题啊，我把 GroupBox 的 TabStop 都 设为 False 了

Answer 4

hiflower(花)
你用的是我上面的代码？

Answer 5

自己搞定！
重新添加控件就可以了。估计是我一开始放的时候是先放gropupbox，全部放完后再在gropupbox中添加其他控件引起的。