编写应用程序消息
来源:互联网 发布:淘宝第三层级交易额 编辑:程序博客网 时间:2024/06/14 08:13
procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
procedure Tfmformname.AppOnMessage(var Msg: TMsg; var Handled: Boolean);
var
a:Cardinal;
i: SmallInt;
WMD: TWMDropFiles;
buf :array[0..254] of Char;
begin
if (Msg.message = WM_KEYDOWN) then
begin
//CTRL+S: tig TEjunTreeGrid会相应这个消息, 让当前单元格处于全选编辑状态, 很蛋疼, 所以再次拦截消息
if (GetKeyState(VK_CONTROL)<0) and (Msg.wParam=ord('S')) THEN
begin
。。。。
end ELSE
//为防止误操作,禁止热键Ctrl+左右方向键 进行升级 降级 操作
if (GetKeyState(VK_CONTROL)<0) and ((Msg.wParam=VK_LEFT) or (Msg.wParam=VK_RIGHT)) THEN
begin
Handled:= true;
end else
//CTRL+F: 查找
if (GetKeyState(VK_CONTROL)<0) and (Msg.wParam=ord('F')) then
begin
cbx_key.SetFocus;
cbx_key.SelectAll;
Handled:= true;
END else
//F3: 下一个(仅对当前查找有效)
if (GetKeyState(VK_CONTROL)>=0) and (Msg.wParam=VK_F3) then
begin
FindNextEx();
Handled:= true;
//G.Log.WriteAppLog('F3: 下一个...', G.MainHanlde);
END;
end;
end;
procedure Tfm2fmname.FormCreate(Sender: TObject);
begin
Application.OnMessage:= AppOnMessage;
- 编写应用程序消息
- C#:消息队列应用程序
- C#消息队列应用程序
- C#:消息队列应用程序
- 应用程序的消息循环
- C#:消息队列应用程序
- Android应用程序消息循环
- 应用程序发送系统消息
- NotificationListenerService 监听应用程序消息
- 应用程序间发送消息
- Windows应用程序常用消息
- 编写TAPI应用程序
- 编写TAPI应用程序
- 编写数据库应用程序
- 编写控制面板应用程序
- 编写高级应用程序1
- SUN:编写高级应用程序
- 编写多线程应用程序
- 哈理工oJ 1211 火车上的人数【暴力枚举】
- 数组名和数组名取地址& 的区别
- Hadoop copyToLocalFile报空指针错误
- 挑战NPC
- nyoj 1057
- 编写应用程序消息
- LeetCode刷题 (Python) | 275. H-Index II
- The Java™ Tutorials — Concurrency :前言
- Linux查看端口占用情况和开启端口命令
- 非常好用的颜色吸取器PicPick
- [HTTP]HTTP协议的状态码
- 297. Serialize and Deserialize Binary Tree
- 大数定理与中心极限定理
- 半小时还原原有Windows System