Delphi事件捕获操作

zxm8513

于 2022-05-11 01:49:35 发布

阅读量786

点赞数

分类专栏： DelphiXE相关技术我的应用为谁而生文章标签： c# 开发语言

本文链接：https://blog.youkuaiyun.com/zxm8513/article/details/124701623

版权

我的应用为谁而生同时被 2 个专栏收录

193 篇文章 ¥19.90 ¥99.00

订阅专栏

超级会员免费看

DelphiXE相关技术

150 篇文章 ¥19.90 ¥99.00

订阅专栏

超级会员免费看

当某些控件如WEBBROSER不支持直接的事件处理时，可以通过添加TApplicationEvents控件并自定义OnMessage事件来实现，例如在鼠标右键点击时触发特定功能。此外，还涉及到了回车事件的截获。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有的控件不具备事件的属性功能，比如WEBBROSER控件不具备鼠标的操作功能，那就需要手动的截获这些消息，可以按照以下步骤进行：

1、在窗体上放置一个TApplicationEvents控件，编写OnMessage事件；

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
  if Msg.message = WM_CLOSE then //判断是否关闭消息
  begin
    if WebBrowser1.Handle = Msg.hwnd then //验证消息是否WebBrowser发来的
    Form1.Close; //关闭窗体本身
    Handled := true;
  end;
end;

2、在捕获的事件中，添加功能，比如：在鼠标右键按下时打开某个功能：

{-----准备截获鼠标双击事件-----}
procedure TFrameMap.AppEventMessage(var Msg: tagMSG; var Handled: Boolean);
begin
   if Msg.message = wm_rbuttondown then
   begin
      if ischild(WebBrowser.handle,msg.hwn

了解本专栏