delphi中TApplicationEvents控件的用途与使用方法-木庄网络博客

本文整理自网络，侵删。
 在delphi中TApplicationEvents控件的用途与使用方法
 使用ApplicationEvents来拦截窗体消息
项目需要一些全屏展示的web页面，结果碰到一个问题，当窗体上的webbrowse控件打开了
网页之后，窗体就不响应键盘消息了~~~~郁闷了会儿，过后才研究出来用
ApplicationEvents这个控件就可以实现~~~要么的话，就只有HOOK窗口消息了~~
以下是OnMessage事件,用来阻止WebBrowser的右键菜单:
procedure TfrmSearch.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  //如果是Webbrowser，则不许使用右键菜单
  if IsChild(WebBrowser1.Handle,Msg.Hwnd) and ((Msg.Message = WM_RBUTTONDOWN) 
or (Msg.Message=WM_RBUTTONUP)) then
  begin
    Handled:=True;
  end;
end;
 
当焦点在WebBrowser控件中时，窗体是不会响应键盘消息的，可以用以下方法来处理，比
如中按ESC运行命令~
//用ApplicationEvents控件，拦截ESC键按下的消息！
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_KEYDOWN) AND (Msg.wParam=VK_ESCAPE) then
  begin
    if IsChild(Webbrowser1.Handle, Msg.hwnd) then
    showmessage('在这里做你想做的');
  end else;
end;
再来举个简单的例子，dbgrid的滚动条相关的。
dbgrid中假如记录很多，使用鼠标滚动条滚动的时候，只会在dbgrid当前页面数据内滚动
，而滚动条是不会动的，这样操作很不方便，需要再拖动滚动条去滚动数据。加了
TApplicationEvents就可以去判断事件触发对应的方法。
代码：新建应用程序工程，直接在界面上放个dbgrid，高度不要太高，写form的oncreate
事件和TApplicationEvents的onmessage事件。
不放和放TApplicationEvents，你可以看下效果。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,DBClient,DB, Grids, DBGrids, AppEvnts;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ApplicationEvents1: TApplicationEvents;
procedure FormCreate(Sender: TObject);
procedure ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
private
{ Private declarations }
cdstemp:TClientDataSet;
ds:TDataSource;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
//创建对象
cdstemp:=TClientDataSet.Create(Application);
ds:=TDataSource.Create(Application);
//创建dataset列
with cdstemp do
begin
Active:=False;
FieldDefs.Clear;
FieldDefs.Add('id',ftString,32);
CreateDataSet;
Active:=True;
end;
//生成测试数据
for i:=0 to 20 do
begin
cdstemp.Append;
cdstemp.FieldByName('id').AsInteger:=i;
cdstemp.Post;
end;
//绑定
ds.DataSet:=cdstemp;
DBGrid1.DataSource:=ds;
end;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
//先判断焦点在不在DBGrid上
if DBGrid1.Focused then
begin
//判断是不是鼠标滚轮事件
if Msg.message  =  WM_MOUSEWHEEL then
begin
if  Msg.wParam  >  0  then
//滚动条往上滚
SendMessage(DBGrid1.Handle,  WM_KEYDOWN,  VK_UP,  0)
else
//滚动条往下滚
SendMessage(DBGrid1.Handle,  WM_KEYDOWN,  VK_DOWN,  0);
Handled  :=  True;
end;
end;
end;
end.
delphi中TApplicationEvents控件的用途与使用方法

相关推荐

评论
