请教：webbrowser中如何判断网页中是否有文本被选中？

Question

如题。

Answer 1

procedure GetDocuMent;
var
  nmm_nn: string;
  nmm_strdate : String;
  nmm_intz : Integer;
  nmm_inty : string;
  Doc: IHTMLDocument2;
  input:OleVariant;
  userinputelement,pwdinputelement:ihtmlinputelement;
begin
  Randomize;
  nmm_intz := Random(5000);
  nmm_inty := getphone + getphone + getphone;
  nmm_strdate := '1970-01-01';
  nmm_nn := ('320500'+ FormatDateTime('yyyymmdd',StrToDate(nmm_strdate)+nmm_intz)+nmm_inty);
  doc:=webbrowser1.document as ihtmldocument2;
  pwdinputelement:=(doc.all.item('vote',3) as ihtmlinputelement);
  pwdinputelement.checked:=true;
  userinputelement:=(doc.all.item('name',0) as ihtmlinputelement);
  userinputelement.value:=getname;
  pwdinputelement:=(doc.all.item('id',0) as ihtmlinputelement);
  pwdinputelement.value := nmm_nn + IDToNewID(nmm_nn);
  input:=doc.all.item('submit',0);
  input.click;
  Sleep(100);
  WebBrowser1.Navigate('http://www.ksren.com/movement/Movement_Vote.asp');
end;

Answer 2

一个列子 getphone是一个随即取数的函数就不贴了

Answer 3

有文本被选中 = webbrowser1.document.selection.TextRange.length > 0

Answer 4

cngram(阿琦)：
以下这句过不去呀
webbrowser1.document.selection.TextRange.length > 0
出错提示：
[Error] Unit1.pas(622): Undeclared identifier: 'selection'

Answer 5

zuoansuifeng:
你的代码，我没有看懂啊，我只想判断一下有没有文本被选中状态？再帮帮忙啊！cngram(阿琦)：
我用的是( self.WebBrowser1.Document as IHTMLSelectionObject).selection。
但selection下没有TextRange.length ，请教如何做？