Форум программистов [Powered by Invision Power Board]

Код

procedure TfrmMain.MyMessageHandler(var Msg: TMsg; var Handled: Boolean);
var
  iOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
  Range: IHTMLTxtRange;
  CtrlRange: IHTMLControlRange;
  tag: IHTMLElement;
begin
  if Editor_Mode then
    begin
      if WebBrowser=nil then
       begin
         Handled:=False;
         Exit;
       end;
    Handled:=(IsDialogMessage(WebBrowser.Handle,Msg)=true);
    if (Handled) and (not WebBrowser.Busy) then
      begin
        if FOleInPlaceActiveObject=nil then
          begin
            Dispatch:=WebBrowser.Application;
            if Dispatch<>nil then
              begin
                Dispatch.QueryInterface(IOleInPlaceActiveObject,iOIPAO);
                if iOIPAO<>nil then FOleInPlaceActiveObject:=iOIPAO;
              end;
          end;
        if FOleInPlaceActiveObject<>nil then
          begin
            //FOleInPlaceActiveObject.TranslateAccelerator(Msg);
            if ((Msg.message=WM_LBUTTONDOWN) or (Msg.message=WM_LBUTTONUP) or
                (((Msg.message=WM_KEYDOWN) or (Msg.message=WM_KEYUP)))) then
            if (Editor.Selection.Type_='Text') or (Editor.selection.type_='None') then //Text
            begin
              Range:=(editor.selection.createRange as IHTMLTxtRange);
              tag:=Range.parentElement;
             // Обработка текстового выделения
            end else if Editor.Selection.Type_='Control' then
              begin
              // Object
                CtrlRange:=(editor.selection.createRange as IHTMLControlRange);
                tag:=CtrlRange.commonParentElement;
                // Обработка графического выделения
              end else FOleInPlaceActiveObject.TranslateAccelerator(Msg);
          end;
      end;
    end else
     begin
     // Code
     end;
end;