ComboBoxEx1的焦点转移问题 想用回车转移焦点,在ComboBoxEx1的OnKeydown中写下: if key=13 then SendMessage(Handle,WM_NEXTDLGCTL,0,0);发现无法转移焦点,其他别的用此法均可. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 首先,在主窗体中声明以下private过程:{------}procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);begin if Msg.Message = WM_KEYDOWN then begin if Msg.wParam = VK_RETURN then Keybd_event(VK_TAB, 0, 0, 0); end; //ifend;{------} 在主窗体的OnCreate事件中加入:{------} Application.OnMessage := DoEnterAsTab;{------} 程序运行期间不断接收 WM_KEYDOWN信息, 若按下的键是VK_RETURN (#13),我们模拟一个键盘事件, 把VK_TAB作为参数传送。在整个程序中都起作用。 好象没这么复杂,自己搞好了.SendMessage(Handle,WM_NEXTDLGCTL,0,0);改成PostMessage(Handle,WM_NEXTDLGCTL,0,0); 数据库插入问题 怎么用delphi实现接收网卡的数据啊!!急!! 用UDP和ACM如何让两个局域网中的机器对话? 怎么操作一片内存区域像操作一Cardinal数组一样方便? 诚聘Delphi程序员3名 月薪5000 工作地:上海 李维的书中第2章"开发基本的分布式多层应用系统"的问题? 一个数据库问题 急事!!!请教!!! 截获鼠标右键点击 请问怎样在运行期增加表格的字段! 如何修改DBGridEh代码,让Indicator列上显示行号,而不显示三角形标记 大家一起来解决个棘手的问题
首先,在主窗体中声明以下private过程:{------}
procedure TMainForm.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN then
Keybd_event(VK_TAB, 0, 0, 0);
end; //if
end;
{------}
在主窗体的OnCreate事件中加入:{------}
Application.OnMessage := DoEnterAsTab;
{------}
程序运行期间不断接收 WM_KEYDOWN信息, 若按下的键是VK_RETURN (#13),我们模拟一个键盘事件, 把VK_TAB作为参数传送。在整个程序中都起作用。
SendMessage(Handle,WM_NEXTDLGCTL,0,0);改成
PostMessage(Handle,WM_NEXTDLGCTL,0,0);