如何才能让一个非活动窗口获得键盘事件？ ( 积分: 200 )

峻祁连 · 2005-09-11

我需要向一个窗口传递一个keyPress或keydown事件，以便在这个事件处理函数里作些工作。但由于要实时信息显示，所以用了mousemove的时候show另外一个信息显示窗体，这样信息显示窗体就总是活动窗口，而接收所有客户事件，我想要接收事件的主窗口反而接收不到？  怎么才能禁止信息显示窗口接收制定事件呢？或者指定非活动的主窗口接收事件？或者让信息窗口接收事件后再传递给主窗体？

峻祁连 · 2005-09-11

我需要向一个窗口传递一个keyPress或keydown事件，以便在这个事件处理函数里作些工作。但由于要实时信息显示，所以用了mousemove的时候show另外一个信息显示窗体，这样信息显示窗体就总是活动窗口，而接收所有客户事件，我想要接收事件的主窗口反而接收不到？  怎么才能禁止信息显示窗口接收制定事件呢？或者指定非活动的主窗口接收事件？或者让信息窗口接收事件后再传递给主窗体？

饭前饭后 · 2005-09-11

先用SPY++工具查看该窗口的类 再用FindWindow(刚才查看到的类名,nil):返回窗口句柄 再用SendMessage(刚才得到的窗口句柄,参数1,参数2,参数3)来发送键盘消息 参数1,参数2,参数3根据你要发送的具体消息而定

老人家 · 2005-09-11

To 峻祁连, 老大，我看了3分钟您的题目都没看懂，您用代码来表述已一下吧

峻祁连 · 2005-09-11

自定义类如下，因为代码比较多，为了看清楚，我把不相关的部分删除了。 =========================== unit TRouteEditorClass; interface uses Controls, Classes, MapXLib_TLB, Variants, TeEngine, windows, SysUtils,  frmuRouteSimpleInfo, Math,TypeOfPoint,TRoadRuleClass,frmuRouteDetailInfo,  dchyMapModule,  Dialogs, DataModuleAdo,  frmuRouteDataWin,  uConstDefine, PSMainUnit,Messages,  uRoutePlanning, uPointSortAndSearch, ProjectionAndSort; type TRouteEditor = class(TMap)  private    { Private declarations }    m_IriMouseMoveEvent: TMouseMoveEvent;    m_IriKeyDownEvent : TKeyEvent;            //keydown 和keyPress用一个就可以了，能达到目的就行，    m_IriMapKeyPress : TKeyPressEvent;      //  我这里写了两个是想都试一下，哪个能用用哪个，                                                            //按说要有一个弄同的话，另一个应该也没问题        m_frmRouteDetailInfo : TfrmRouteDetailInfo;         //信息显示窗口    procedure MyKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);    procedure MyKeyPress(Sender: TObject; var Key: Char);  public    { public declarations }    constructor Create(currentMap : TMap;roadLayer,nodeLayer,GuiHuaRouteLayer,customerLayer : CMapXLayer);    function CreateAddRouteTool: Integer;    function InstallAddRouteTool(): Boolean;    function UnInstallAddRouteTool(): Boolean;    function GetToolNum(): Integer;  end; const  MAP_ADDROUTE_TOOL = 805;  ADD_ROUTE_TOLERANCE = 30;  //手工画线路时，必须和道路中线的最大距离，超出此距离则认为画线无效 implementation var  myMapModule : TdchyMapModule; { TRouteEditor } function TRouteEditor.InstallAddRouteTool: Boolean; begin  if m_pMap <> nil then  begin    //保存原先的事件处理函数状态    m_IriKeyDownEvent := m_pMap.OnKeyDown;    m_IriMapKeyPress := m_pMap.OnKeyPress;    m_pMap.OnKeyDown := MyKeyDown;    m_pMap.OnKeyPress := MyKeyPress;    result := True;  end  else    result := False; end; procedure TRouteEditor.MyKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  if (m_pMap.CurrentTool = MAP_ADDROUTE_TOOL) and (Key = VK_ESCAPE) then begin    // 我会在这里写业务相关代码，以相应键盘发送VK_ESCAPE事件***********    end;    //退出自定义工具    m_pMap.CurrentTool := miArrowTool;    myMapModule.DeleteTempAnimationLayer(m_pMap, m_strRuleFlagLayer);    UnInstallAddRouteTool;  end;  if @m_IriKeyDownEvent <> nil then    m_IriKeyDownEvent(Sender,Key, Shift); end; procedure TRouteEditor.MapMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin    //显示信息窗口出来*******************    if m_frmRouteDetailInfo = nil then      m_frmRouteDetailInfo := Tm_frmRouteDetailInfo.Create(nil);   m_frmRouteDetailInfo.Show;  if @m_IriMouseMoveEvent <> nil then    m_IriMouseMoveEvent(Sender, Shift, X, Y); end; function TRouteEditor.UnInstallAddRouteTool: Boolean; begin  if m_pMap <> nil then  begin      //回复原先的事件处理函数状态    m_pMap.OnKeyDown := m_IriKeyDownEvent;    m_pMap.OnKeyPress := m_IriMapKeyPress;    m_IriKeyDownEvent := nil;    m_IriMapKeyPress := nil;    result := True;  end  else    result := False; end; procedure TRouteEditor.MyKeyPress(Sender: TObject; var Key: Char); begin  if (m_pMap.CurrentTool = MAP_ADDROUTE_TOOL) and ((Key = 'u') or (Key = 'U')) then begin     // 我会在这里写业务相关代码，以相应键盘事件***********  end;      //退出自定义工具    UnInstallAddRouteTool;  end;  if @m_IriMapKeyPress <> nil then    m_IriMapKeyPress(Sender, Key); end; end. ======================== 调用代码 ＝＝＝＝＝＝＝＝＝＝＝  //初始化RouteEditor类，画线工具  if RouteEditor = nil then  begin      RouteEditor := TRouteEditor.Create();      RouteEditor.CreateAddRouteTool;  end; ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 由于自定义类截获了mouseMove事件，所有在发生mouseMove时会把信息显示窗口（TfrmRouteDetailInfo）show出来，这样主窗体就接受不到键盘事件了。 我按照饭前饭后的方法，在信息显示窗口（TfrmRouteDetailInfo）类中增加keyPress事件处理函数用sendmessage传给主窗口，但跟踪结果显示信息显示窗口根本就没有发生keyPress事件，就是说下面的代码没有执行 procedure TfrmRouteDetailInfo.FormKeyPress(Sender: TObject; var Key: Char); var  MainFormTitle : array[0..127] of char;  Hold : string;  Found : HWND; begin  inherited;  //只允许有一个实例运行，如果已经有一个在运行则激活它  Hold := frmAPMain.Caption;            //取得程序的标题  StrPCopy(MainFormTitle, Hold);             // 原窗口标题  Found := FindWindow(nil, MainFormTitle);   // 查找窗口  if Found <> 0 then  begin    SendMessage(Found, WM_CHAR, Ord('u'), 0);    SendMessage(Found, WM_CHAR, Ord('U'), 0);  end; end;

chenybin · 2005-09-11

没看懂，先留个位置

江南草 · 2005-09-14

if m_frmRouteDetailInfo = nil then      m_frmRouteDetailInfo := Tm_frmRouteDetailInfo.Create(nil);   m_frmRouteDetailInfo.Show; 这里，你还是可以把主窗口设回为active啊，setforegroundwindow....

峻祁连 · 2005-09-22

多人接受答案了。

如何才能让一个非活动窗口获得键盘事件？ ( 积分: 200 )

峻祁连

Unregistered / Unconfirmed

峻祁连

Unregistered / Unconfirmed

饭前饭后

Unregistered / Unconfirmed

老人家

Unregistered / Unconfirmed

峻祁连

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

江南草

Unregistered / Unconfirmed

峻祁连

Unregistered / Unconfirmed

Similar threads