焦点控制问题 ( 积分: 50 )

在form 上设置了
edit1
groupbox1
groupbox2
groupbox3
每个groupbox里面有几个radiobutton
在edit1上按回车,通过perform(wm_nextdlgctl,0,0)焦点可以跳到groupbox1中被选中的radiobutton上.
现在我想做到的是当焦点在某个groupbox中的radiobutton时,如果按下回车的时候,焦点能跳转到下个groupbox被选中的radiobutton

可以定义一下radiobutton中的onEnter事件

处理RadioButton的OnKeyPress事件
procedure TForm1.RadioButtonKeyPress(Sender: TObject, var Key: Char);
begin
if Key = Char(VK_RETURN) then
begin
Keybd_Event(VK_TAB, 0, 0, 0);
Keybd_Event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
end;
end;