编写应用程序消息

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;