Заменить рисунки в TWEBBrowser

Советы » Браузер » Заменить рисунки в TWEBBrowser

procedure

TForm1.Button1Click(Sender: TObject); var

li: Word; begin

// Loop through all images of a TWebbrowser // Schleife ьber alle Bilder im Webbrowser for

li := 0 to

WebBrowser1.OleObject.Document.Images.Length - 1 do

// Exchange image with an own image // Austauschen der Bilder im webbrowser - durch 'MyImage.gif' WebBrowser1.OleObject.Document.Images.Item(0).Src := 'c:MyImage.gif'; end

;

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

Категории

Статьи

Советы

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