5,928
社区成员
发帖
与我相关
我的任务
分享回车代替tab的小问题！
晕倒，这样也会出问题？
procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//转移到下一个输入框
if Key = #13 then edit2.SetFocus;
end;
错误提示：不能focus一个不可见或不能用的window。
但是用tab按键却可以正常转移。
请教！
procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//转移到下一个输入框
if Key = #13 then edit2.SetFocus;
end;
错误提示：不能focus一个不可见或不能用的window。
但是用tab按键却可以正常转移。
请教！
...全文
请发表友善的回复…
发表回复
太空11 2004-06-24
- 打赏
- 举报
if Key = #13 then
begin
Key := #0;
Perform (CM_DialogKey, VK_TAB, 0);
end;
都可以得
begin
Key := #0;
Perform (CM_DialogKey, VK_TAB, 0);
end;
都可以得
太空11 2004-06-24
- 打赏
- 举报
在控件的keypress事件中加入
if key=#13 then
postmessage(self.handle,wm_keydown,vk_tab,0);
if key=#13 then
postmessage(self.handle,wm_keydown,vk_tab,0);
rockswj 2004-06-24
- 打赏
- 举报
tab 也不可以使不可见或不能用的获得焦点
我一般是设置好taborder
用selectnext
我一般是设置好taborder
用selectnext
youhuiyun 2004-06-24
- 打赏
- 举报
晕倒，发了两次，分数一并给了！
