procedure TForm1.FormDestroy(Sender: TObject); begin FOleInPlaceActiveObject := nil; end;
procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := MsgHandler; end;
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean); const DialogKeys: set of Byte = [VK_LEFT, VK_RIGHT, VK_BACK, VK_UP, VK_DOWN, $30..$39, $41..42, $44..$55, $57, $59..$5A]; var iOIPAO: IOleInPlaceActiveObject; Dispatch: IDispatch; begin { exit if we don''''t get back a webbrowser object } if (WebBrowser1 = nil) then begin Handled := System.False; Exit; end;
if (Handled) and (not WebBrowser1.Busy) then begin if FOleInPlaceActiveObject = nil then begin Dispatch := WebBrowser1.Application; if Dispatch <> nil then begin Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO); if iOIPAO <> nil then FOleInPlaceActiveObject := iOIPAO; end; end;
if FOleInPlaceActiveObject <> nil then if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and (Msg.wParam in DialogKeys) then // nothing - do not pass on the DialogKeys else FOleInPlaceActiveObject.TranslateAccelerator(Msg); end; end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
