Заменить рисунки в TWEBBrowserprocedure 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;
Название: Заменить рисунки в TWEBBrowser Дата публикации: 2004-09-02 (2666 Прочтено) |