怎样才能回车替换tab?

bcy123456 2003-04-28 05:33:26
当我敲回车建的时候替换tab建
...全文
82 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
kingting 2003-05-24
  • 打赏
  • 举报
回复
我有个控件可以实现它的功能,你要不要?
594linhai 2003-05-24
  • 打赏
  • 举报
回复
都可以试试~,不错`
luo73 2003-05-24
  • 打赏
  • 举报
回复
因该是:
keybd_event(VK_TAB, 0, 0, 0);

VOID keybd_event(

BYTE bVk, // virtual-key code
BYTE bScan, // hardware scan code
DWORD dwFlags, // flags specifying various function options
DWORD dwExtraInfo // additional data associated with keystroke
);
zwjchina 2003-04-29
  • 打赏
  • 举报
回复
方法有三,自己选吧:
用回车代替TAB:

1.发送消息WM_NEXTDLGCTL
2.发送WM_KEYDOW消息,消息参数含VK_TAB
3.在Application.OnMessage中截获:
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
Keydb_event(VK_TAB, 0, 0, 0, 0);
end;
小豆好好 2003-04-28
  • 打赏
  • 举报
回复
同意lyq(阿飞)
:)
lyq 2003-04-28
  • 打赏
  • 举报
回复
if key=#13 then
perform(wm_nextdlgctl,0,0)
lyq 2003-04-28
  • 打赏
  • 举报
回复
if key=#13 then
sendmessage(handle,wm_nextdlgctl,0,0);
yoisyois 2003-04-28
  • 打赏
  • 举报
回复
onKeyPress
...
if key = #13 then
SomeEdit.SetFoucs;
...

5,930

社区成员

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

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