哪里有回车控件 有回车控件的下载吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 回车控件干什么用?用回车代替TAB在onkeypress 写 if key=#13 then perform(WM_NEXTDLGCTL,0,0); 这句我也知道,可是这样写太累了。如果有几十个edit 那你都要加句吗?我以前用过回车控件,只要一加,一句也不用写。那样写代码太繁琐,没意思。只是现在忘了当时用的什么控件了。 自定义一个edit类似的组件,把那句加进去,以后都调用它就可以了呀 用回车代替TAB的3种方法:1.发送消息WM_NEXTDLGCTL 2.发送WM_KEYDOW消息,消息参数含VK_TAB 3.在Application.OnMessage中截获: if Msg.Message = WM_KEYDOWN then begin if Msg.wParam = VK_RETURN then keybd_event(VK_TAB, 0, 0, 0); end;你不想累就用第3种方法罗 以前用的叫什么我也忘,好像是一组套装。就是闲写代码太麻烦,才想到这个控件的。它可不是只用于edit控件。它能用于所有的控件中。认为写这样一个组件好写吗?最主要的是小弟不会写控件。 新建一个组件,加入原Tedit,加入代码,保存为另外一个控件不就行了,看看书.优秀的程序一定会写出控件哟 delphi 操作EXCEL 請教高手排程解決方案 关于发送鼠标消息的问题 打包好的程序运行报错,但是编译的时候没有报错 汗 怎麼用Sql再服務器上建立目录 怎么我的Delphi 7 有时能自动列出组件名后的属性、过程等,有时又不行? 怎么分开用点区分的字符串 ADOquery的问题 记得delphi中有一个命令可以显示一个对话框得到一个返回的字符串的,是什么?忘记了, 我是新手:ADO 问题? 哪里有InstallShield中文版的下载? 程序员开智----------帮我看这个谜语?
用回车代替TAB
在onkeypress 写
if key=#13 then perform(WM_NEXTDLGCTL,0,0);
我以前用过回车控件,只要一加,一句也不用写。那样写代码太繁琐,没意思。
只是现在忘了当时用的什么控件了。
2.发送WM_KEYDOW消息,消息参数含VK_TAB
3.在Application.OnMessage中截获:
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
keybd_event(VK_TAB, 0, 0, 0);
end;你不想累就用第3种方法罗