|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#2
05.04.2008, 17:03
|
||||
|
||||
А если WebBrowser.Navigate('about:');
|
|
#4
05.04.2008, 19:14
|
||||
|
||||
|
Цитата:
Код:
uses Variants, MSHTML, ActiveX;
procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);
var
Document: IHTMLDocument2;
V: OleVariant;
begin
// Документ необходимо создать только один раз за текущую
// сессию работы
if WB.Document=nil
then WB.Navigate('about:blank');
// Ожидаем создания документа и позволяем обрабатывать все
// сообщения
while WB.Document=nil do
Application.ProcessMessages;
Document:=WB.Document as IHtmlDocument2;
// Вставляем текст (до 2Гб)
// следующие строчки внесены недавно - старый вариант
// ункции не работал под XP
V:=VarArrayCreate([0,0], varVariant);
V[0]:=Text;
Document.Write(PSafeArray(TVarData(v).VArray));
Document.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TextToWebBrowser('<html><head></head><body><p align="center">Clear page</p></body></html>', WebBrowser1);
end; |
|
#5
05.04.2008, 19:49
|
||||
|
||||
|
Спассибо, но это не то. Нужно очистить ВСЕ следы Navigate на странице. Чтобы в OnCommandStateChange не выдавало в Command никакого значения в Back и Forward.
Последний раз редактировалось Winny, 05.04.2008 в 20:04. |
Линейный вид
