Советы по delphi \ Интернет и сети \ Браузер \ Заменить рисунки в 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;

Название: Заменить рисунки в TWEBBrowser
Дата публикации: 2004-09-02 (2517 Прочтено)