导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/5/5 7:27:37
标题:
加入我的收藏
楼主:
如何用消息完成如下功能 按回车将焦点移动到下一个控件.
----------------------------------------------
wang
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2004/5/5 8:25:09
1楼:
忘记了!
----------------------------------------------
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2004/5/5 8:26:23
2楼:
老大他要的是消息
----------------------------------------------
作者:
sephil (NAILY Soft)
★☆☆☆☆
-
盒子中级会员
2004/5/5 8:34:26
4楼:
type TForm1 = class(TForm) private { Private declarations } procedure WMChar(var Message: TWMChar); message WM_CHAR; public { Public declarations } end; 。。。。。。。。。。。。。。。。。。。 procedure TForm1.WMChar(var Message: TWMChar); begin if Message.CharCode = 13 then PostMessage(Handle, WM_NEXTDLGCTL,0 ,0); end;
----------------------------------------------
Copyright 2008 ? NAILY Soft
Click here to redirect to my home Click here to redirect to my blog
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2004/5/5 8:57:40
5楼:
学习!
----------------------------------------------
作者:
2004/5/5 9:48:09
6楼:
谢谢。。。。。学习。
----------------------------------------------
wang
作者:
2004/5/5 14:35:18
7楼:
不好意思,刚试了,不行啊。。。 再来。
----------------------------------------------
wang
作者:
sephil (NAILY Soft)
★☆☆☆☆
-
盒子中级会员
2004/5/5 14:48:14
8楼:
以前的解决办法是用TApplicationEvent 然后在他的OnMessage写 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.message = WM_CHAR) and (Msg.wParam = 13) then SendMessage(Handle, WM_NEXTDLGCTL,0 ,0); end;
----------------------------------------------
Copyright 2008 ? NAILY Soft
Click here to redirect to my home Click here to redirect to my blog