Получить выделенные объекты из TWebBrowser

Советы » Браузер » Получить выделенные объекты из TWebBrowser

procedure

TForm1.Button1Click(Sender: TObject); begin

if

Webbrowser1.OleObject.Document.Selection.type

= 'Control' then

begin

if

Webbrowser1.OleObject.Document.Selection.CreateRange.CommonParentElement.tagName = 'IMAGE' then

ShowMessage('An Image is selected'); end

else

begin

if

Webbrowser1.OleObject.Document.Selection.createRange.Text = '' then

ShowMessage('Nothing is selected - '); end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com