Получение выделенного текста из компонента TWebBrowser
Получение выделенного текста из компонента TWebBrowser
Получение выделенного текста из компонента TWebBrowser function GetBrowserSelection(WB: TWebBrowser): string; var Doc: Variant; begin if WB.Document <> nil then begin Doc := WB.Document; try Result := Doc.Selection.createRange.Text; finally Doc := Unassigned; end; end else Result := ''; end;
