小小问题:回车键代替tab键,怎样让焦点在窗体中的控件移动??(20分)

  • 主题发起人 主题发起人 xiaoxian
  • 开始时间 开始时间
X

xiaoxian

Unregistered / Unconfirmed
GUEST, unregistred user!
小小问题:回车键代替tab键,怎样让焦点在窗体中的控件移动??一下代码不好使阿,怎么回事???
procedure Tfrm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_Return then
begin
SelectNext(ActiveControl,True,True);
Key:=VK_tab;
end;
end;
 
把Form的KeyPreview设为True就好使了。 [:)]
 
procedure TForm1.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
Keybd_event(VK_TAB, 0, 0, 0);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := DoEnterAsTab;
end;
 
多人接受答案了。
 
后退
顶部