Ganzen Text in einen TWebbrowser markieren

[Andreas L.]

Tach,
ich meld mich auch mal wieder und zwar mit der folgenden Frage. Wie stelle ich an das auf Klick der ganze Text bzw. einfach alles im Webbrowser markiert wird?

Hab schon im swissdelphicenter und hier gesucht, finde aber nichs.

Könnt ihr mir helfen?

Greetz,
Andy

[Sprint]

Delphi-Quellcode:

var
  TextRange: OleVariant;
begin
   TextRange := WebBrowser1.OleObject.Document.selection.createRange;
   TextRange.moveToElementText(WebBrowser1.OleObject.Document.body);
   TextRange.select;
end;

Mein Beispiel markiert alles was auf der Seite vorhanden ist. Wenn du dir das anders vorstellst, dann frag' nochmal.

[Andreas L.]

Genau das was ich brauche. Werde es heute Nachmittag testen.

Danke für den Code.