I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
： 1）我用鼠标选择了Twebbrowser中的一段文字，想按Twebbrowser外的一按键，就能将选中的文字读出到一定义的字符变量，该如何做？？ 2）我如何能够得到选中文字的第一个字符在屏幕中的位置，如（430，250）。。？ TechnoFantasy(www.applevb.com) (2001-5-29 20:12:00) 得0分
获得选择的文本的代码：
procedure TForm1.Button1Click(Sender: TObject);
var
FDoc:IHTMLDocument2;
FSel:IHTMLSelectionObject;
FRange:IHTMLTxtRange;
begin
FDoc:=Webbrowser1.Document as IHTMLDocument2;
FRange:=FDoc.selection.createRange as IHTMLTxtRange;
Memo1.Text:=FRange.Get_text;
end;
首先需要在uses中引用MSHTML
回复人：TechnoFantasy(www.applevb.com) (2001-5-29 20:21:00) 得0分
获得位置的代码：
x:= FRange.parentElement.offsetLeft
y:=FRange.parentElement.Get_offsetTop;
Label1.Caption := INtToStr(x);
Label2.Caption := INtToStr
;
承接上面的代码，不过只能获得相对于父元素的位置，不能获得相对于Window的位置。
获得选择的文本的代码：
procedure TForm1.Button1Click(Sender: TObject);
var
FDoc:IHTMLDocument2;
FSel:IHTMLSelectionObject;
FRange:IHTMLTxtRange;
begin
FDoc:=Webbrowser1.Document as IHTMLDocument2;
FRange:=FDoc.selection.createRange as IHTMLTxtRange;
Memo1.Text:=FRange.Get_text;
end;
首先需要在uses中引用MSHTML
回复人：TechnoFantasy(www.applevb.com) (2001-5-29 20:21:00) 得0分
获得位置的代码：
x:= FRange.parentElement.offsetLeft
y:=FRange.parentElement.Get_offsetTop;
Label1.Caption := INtToStr(x);
Label2.Caption := INtToStr
;承接上面的代码，不过只能获得相对于父元素的位置，不能获得相对于Window的位置。