关于class produre
2013-10-21 13:15
399 查看
很好理解 type TMessageHandler = class //使得回车消息转换成Tab消息 class procedure AppMessage(var Msg:TMsg;var Handled:Boolean); end; var Form1: TForm1; implementation {$R *.dfm} class procedure TMessageHandler.AppMessage(var Msg: TMsg; var Handled: Boolean); begin if Msg.message=WM_KEYDOWN then if (Msg.wParam=VK_RETURN ) and ( (Screen.ActiveForm.ActiveControl is TEdit) or (Screen.ActiveForm.ActiveControl is TComboBox) or (Screen.ActiveForm.ActiveControl is TCheckBox) or (Screen.ActiveForm.ActiveControl is TRadioButton) //可以添加需要的控件 ) then begin Msg.wParam:=VK_TAB; end else if (Msg.wParam=VK_RETURN) and ( (Screen.ActiveForm.ActiveControl is TDBGrid) ) then begin { with Screen.ActiveForm.ActiveControl do begin if Selectedindex<(FieldCount-1) then Selectedindex:=Selectedindex+1// 移动到下一字段 else Selectedindex:=0; end;} end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage:=TMessageHandler.AppMessage; end;
View Code
相关文章推荐
- monkeyrunner
- RANSAC算法介绍
- 关于更改MYECLIPSE JS 代码背景颜色
- jQueryMobile之listview
- 多线程一
- windows游戏程序自动备份与更新
- 奥卡姆剃刀定律在程序设计中的应用[化繁为简]
- RADIUS
- hdu 1676(二维Dijkstra)
- 代码重构方向原则指导(转载 cnblogs)
- delphi 换行操作 Word
- 第十周项目6-吃饭,睡觉,打豆豆(不使用自定义函数)(使用if-else语句)
- 站得高看得远——早会激励小故事
- 编程之美_2.10_寻找数组中的最大值和最小值
- Linux无光盘安装yum
- eCos中的main函数 .
- Linux与VxWorks主要区别(二):运行模式
- Javascript实现真实字符串剩余字数提示
- String的疑问
- 程序员该如何去写自己的简历-代码而成的简历