Webbrowser Text markieren verhindern

**Salomon**

Hallo,
ich benutze in meinem Programm den IE, den ich über ActiveX importiert habe (Delphi 5)um Informationstexte anzuzeigen. Allerdings stört es mich das man denn Text markieren kann, da
es dann immer so aussieht als könnte man den Text bearbeiten.

Habt ihr eine Idee wie man das verhindern kann?

Mit dem folgenden Code kann man den gesammten text makieren. Evtl. kann man ja den zu markierenden Bereich auf null setzen und das dann in einem Event des Browser unterbringen...

markieren

Delphi-Quellcode:

			  TextRange: OleVariant;

begin

   TextRange := WebBrowser.OleObject.Document.selection.createRange;

   TextRange.moveToElementText(WebBrowser.OleObject.Document.body);

   TextRange.select;

end;

Thanx
Salomon

**toms**

Hallo!

Wuerde es auch helfen, wenn man die Maustasten wuerd den Webbrowser deaktiviert?

Zitat von toms:

Hallo!

Wuerde es auch helfen, wenn man die Maustasten wuerd den Webbrowser deaktiviert?

Aber da es ein Webbrowser ist, wie willst du dann Links, etc. anklicken ?

**toms**

Zitat von PierreB:

Zitat von toms:

Hallo!

Wuerde es auch helfen, wenn man die Maustasten wuerd den Webbrowser deaktiviert?

Aber da es ein Webbrowser ist, wie willst du dann Links, etc. anklicken ?

Die Links koennte man per GetElementAtPos ermitteln und entsprechend behandeln.

**Orbmu2k**

gabs da nicht html code für ie

<body onselectstart="return false">Nicht Markierbarer Text</body>

**toms**

Habe nun ein Beispiel gemacht. Damit wird verhindert, dass Code selektiert werden kann
und das Popupmenu erscheint auch nicht.

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  MSHTML;

function GetElementAtPos(Doc: IHTMLDocument2; x, y: Integer): IHTMLElement;

begin

  Result := nil;

  Result := Doc.elementFromPoint(x, y);

end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;

  var Handled: Boolean);

var

  MausPos: TPoint;

  Element: IHTMLElement;

  Doc: IHTMLDocument2;

begin

  if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_LBUTTONDOWN) or

    (Msg.Message = WM_RBUTTONDBLCLK) then

  begin

    if IsChild(Webbrowser1.Handle, Msg.hwnd) then

    begin

      Doc := Webbrowser1.Document as IHTMLDocument2;

      if Assigned(doc) then

      begin

        GetCursorPos(MausPos);

        mauspos := Webbrowser1.ScreenToClient(mauspos);

        Element := GetElementAtPos(doc, MausPos.x, MausPos.y);

        if Assigned(Element) then

        begin

          if element.tagName = 'A' then // evtl. auf weitere Tags ueberpreufen

            Exit;

        end;

      end;

      Handled := True;

    end;

  end;

end;

**Salomon**

Wow, sind ja schon einige Anworten

Der HTML Tag onselectstart="return false" gibt im IE unter WinXP mit SP 2 eine Sicherheitswarnung aus, wenn er nicht in einem Frame geladen wird. Wenn man die Seite aber einzeln im Programm lädt gibt es keine Sicherheits Meldung

@toms: Coole Funktion, dass sie mir das PopUp Menü gleich noch mit unterbindet ist natürlich genial. Werd ich wohl verwenden. Danke.

**toms**

Habe gemerkt, dass man mit Strg+A das Dokument immer noch markieren kann.
Diese Funktion deaktiviert nun das Popupmenue, Strg+A, markieren mit der Maus.

zusammenfalten · markieren

Delphi-Quellcode:

			function GetElementAtPos(Doc: IHTMLDocument2; x, y: Integer): IHTMLElement;

begin

  Result := nil;

  Result := Doc.elementFromPoint(x, y);

end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;

  var Handled: Boolean);

var

  ShiftState: TShiftState;

var

  MousePos: TPoint;

  Element: IHTMLElement;

  Doc: IHTMLDocument2;

begin

  // only handle Webbrowser messages

  if IsChild(Webbrowser1.Handle, Msg.hwnd) then

  begin

    // Convert keyboard message data to TShiftState

    ShiftState := KeyDataToShiftState(Msg.lParam);

    // ctrl + A

    if (ShiftState = [ssCtrl]) and (Msg.message = WM_KEYDOWN) and

      (Msg.wParam = ord('A')) then

    begin

      // event subsequent processing of the message

      Handled := True;

      Exit;

    end;

    // right-, left-, double click

    if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_LBUTTONDOWN) or

      (Msg.Message = WM_RBUTTONDBLCLK) then

    begin

      Doc := Webbrowser1.Document as IHTMLDocument2;

      if Assigned(doc) then

      begin

        GetCursorPos(MousePos);

        MousePos := Webbrowser1.ScreenToClient(MousePos);

        // get the element under the mouse

        Element := GetElementAtPos(doc, MousePos.x, MousePos.y);

        if Assigned(Element) then

        begin

          // if a link

          if element.tagName = 'A' then

            Exit;

        end;

      end;

      // if not a link, don't process the message

      Handled := True;

    end;

  end;

end;

**torud**

Ich habe es gerade bei mir probiert und ich kann nach wie vor alles einfach so markieren. Muss ich die Prozedure vielleicht noch irgendwo dranhängen?

Webbrowser Text markieren verhindern

Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Re: Webbrowser Text markieren verhindern

Forumregeln

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#2 Re: Webbrowser Text markieren verhindern 31. Mär 2005, 15:13 Hallo! Wuerde es auch helfen, wenn man die Maustasten wuerd den Webbrowser deaktiviert? Thomas
	Zitat

PierreB (Gast) n/a Beiträge	#3 Re: Webbrowser Text markieren verhindern 31. Mär 2005, 15:28 Zitat von toms: Hallo! Wuerde es auch helfen, wenn man die Maustasten wuerd den Webbrowser deaktiviert? Aber da es ein Webbrowser ist, wie willst du dann Links, etc. anklicken ?
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#4 Re: Webbrowser Text markieren verhindern 31. Mär 2005, 15:31 Zitat von PierreB: Zitat von toms: Hallo! Wuerde es auch helfen, wenn man die Maustasten wuerd den Webbrowser deaktiviert? Aber da es ein Webbrowser ist, wie willst du dann Links, etc. anklicken ? Die Links koennte man per GetElementAtPos ermitteln und entsprechend behandeln. Thomas
	Zitat

Orbmu2k Registriert seit: 29. Nov 2004 Ort: Erfurt 254 Beiträge Turbo Delphi für Win32	#5 Re: Webbrowser Text markieren verhindern 31. Mär 2005, 15:34 gabs da nicht html code für ie <body onselectstart="return false">Nicht Markierbarer Text</body> OrbLog
	Zitat

torud Registriert seit: 26. Jul 2002 Ort: Sachsen 1.198 Beiträge Delphi XE5 Professional	#9 Re: Webbrowser Text markieren verhindern 9. Mai 2006, 11:56 Ich habe es gerade bei mir probiert und ich kann nach wie vor alles einfach so markieren. Muss ich die Prozedure vielleicht noch irgendwo dranhängen? Danke Tom
	Zitat