引言: Delphi 如何抓出在 TWebBrowser 中顯示網頁內用滑鼠選取的資料？ 例如我的網頁內有「繼續測試中」五個字 然後我用滑鼠選了測試兩個字 如何能把這些字抓出來使用？？ 謝謝大家 < >< >

initialization
  OleInitialize(nil);    finalization
  OleUninitialize;    end.

引言:

引言: Delphi 如何抓出在 TWebBrowser 中顯示網頁內用滑鼠選取的資料？ 例如我的網頁內有「繼續測試中」五個字 然後我用滑鼠選了測試兩個字 如何能把這些字抓出來使用？？ 謝謝大家 < >< >

只要initial ole如下,在WebBrowser中, copy/paste等功能就可用了 須uses activex

initialization
  OleInitialize(nil);    finalization
  OleUninitialize;    end.

procedure TForm1.Button2Click(Sender: TObject);
var
  hd: IHTMLDocument2;
  ht: IHTMLTxtRange;
begin
  hd := webbrowser1.Document as IHTMLDocument2;
  ht := hd.selection.createRange as IHTMLTxtRange;
  showmessage(ht.text);
end;