BCB下解决CppWebBrowser屏蔽按键消息问题

原创于 2009-04-16 12:44:00 发布 · 975 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#null #up

本文介绍了一种方法来解决在Delphi中使用TCppWebBrowser组件时按键消息被屏蔽的问题。通过添加TApplicationEvents组件并在其Message事件中编写特定代码，可以成功捕获按键事件。

部署运行你感兴趣的模型镜像

添加了TCppWebBrowser之后，Form的按键消息就被迫屏蔽而不好捕捉，我们可以先添加一个TApplicationEvents在其Message事件里填写以下代码

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
    IOleInPlaceActiveObject __RPC_FAR *iOIPAO; 
    IDispatch __RPC_FAR *Dispatch;
    if(CppWebBrowser1==NULL)
    {
        Handled=false;
        return;
    }
    Handled = (IsDialogMessage(CppWebBrowser1->Handle,&Msg));
    if(Handled&&(!CppWebBrowser1->Busy))
    {
        if(FOleInPlaceActiveObject==NULL)
        {
            Dispatch=CppWebBrowser1->Application;
            if(Dispatch!=NULL)
            {
                Dispatch->QueryInterface(__uuidof(IOleInPlaceActiveObject),(void**)&iOIPAO);
                if(iOIPAO!=NULL)
                {
                    FOleInPlaceActiveObject = iOIPAO;
                }
            }
        }
        if(FOleInPlaceActiveObject!=NULL)
        {
            if((Msg.message==WM_KEYDOWN||Msg.message==WM_KEYUP))
            {
                if(Msg.wParam==VK_UP)
                {
                    ShowMessage("fuck");
                }
            }
        }
        else
        {
            FOleInPlaceActiveObject->TranslateAccelerator(&Msg);
        }
    }
}

您可能感兴趣的与本文相关的镜像

ACE-Step

音乐合成

ACE-Step

ACE-Step是由中国团队阶跃星辰（StepFun）与ACE Studio联手打造的开源音乐生成模型。它拥有3.5B参数量，支持快速高质量生成、强可控性和易于拓展的特点。最厉害的是，它可以生成多种语言的歌曲，包括但不限于中文、英文、日文等19种语言