Shift + Tab
perform(WM_NEXTDLGCTL,0,0);这是向下移动，请问如何向上移动？？？？？？
perform(WM_NEXTDLGCTL,1,0);即可向上移动
为什么不看MSDN，不看HELP你当然不知道了。
perform(WM_NEXTDLGCTL,0,1)
控制焦点移动，还可以利用TWinControl.SelectNext()方法来做！
*********************
Form.KeyPreview := true; 在Form的KeyDown中
if Key = VK_RETURN then
begin
if ActiveControl is TDBGrid or ... then
PostMessage(ActiveControl.Handle, WM_KEYDOWN, VK_TAB, 0);
else
PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);
Key := 0;
end
---------------
procedure EnterToTab(aForm: TForm; var Key: Char);
begin
if Key = #13 then
begin
key := #0;
aForm.Perform(CM_DialogKey, VK_TAB, 0);
end;
end;
***************
或者拦截Application.OnMessage即可，添加代码：
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
Keybd_event(VK_TAB, 0, 0, 0);
end; //if
此文章由 http://www.ositren.com 收集整理 ,地址为:
http://www.ositren.com/htmls/68158.html