回车代替tab的小问题!

youhuiyun 2004-06-24 11:51:36
晕倒,这样也会出问题?

procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//转移到下一个输入框
if Key = #13 then edit2.SetFocus;
end;

错误提示:不能focus一个不可见或不能用的window。

但是用tab按键却可以正常转移。

请教!
...全文
131 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
太空11 2004-06-24
  • 打赏
  • 举报
回复
if Key = #13 then
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);

rockswj 2004-06-24
  • 打赏
  • 举报
回复
tab 也不可以使不可见或不能用的获得焦点
我一般是设置好taborder
用selectnext
youhuiyun 2004-06-24
  • 打赏
  • 举报
回复
晕倒,发了两次,分数一并给了!

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧