| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser [D7, WinXP]

WASM ©   (2007-08-01 20:42:00) 

Подскажите кто нибудь как избавится от щелчка при загрузке страницы в TWebBrowser, ни чего не могу поделать с этим

---

WASM   (2007-08-02 12:26:00) [1]

> Tack ©   (02.08.07 10:56) [1]


Вот загружеешь текст в TWebBrowser собственно и слышен обычный щелчок такой "щёлк"

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
 sl: TStringList;
 ms: TMemoryStream;
begin
 WebBrowser.Navigate('about:blank');
 while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
   Application.ProcessMessages;

 if Assigned(WebBrowser.Document) then
 begin
   sl := TStringList.Create;
   try
     ms := TMemoryStream.Create;
     try
       sl.Text := HTMLCode;
       sl.SaveToStream(ms);
       ms.Seek(0, 0);
       (WebBrowser.Document as
         IPersistStreamInit).Load(TStreamAdapter.Create(ms));
     finally
       ms.Free;
     end;
   finally
     sl.Free;
   end;
 end;
end;

---

Tack   (2007-08-02 10:56:00) [2]

Какого такого щелчка? 8-|

---

Наверх