Ещё один вопрос про TWebBrowser

[Johnson]

Здравствуйте, уважаемые!
Подскажите, как убрать звук "щелчка" при открытии страницы?
Но, желательно, отключить звук только у конкретного компонена (на вкладке 2 TWebBrowser`а, один невидимый, с его и нужно убрать звук)

Заранее благодарен!

[Пепел Феникса]

помоему никак...а зачем два то?(с невидимым)

[Johnson]

Один для получения служебной информации...

Кстати тогда попутный вопрос... В первый ВебБраузер не проходят нажатия кнопки Enter... Заполняешь, например, тестовое поле... Таб, стрелки, всё остальное нормально реагирует, а Enter - никак...
С формы со всех кнопок точно снят .Default
В чем может быть причина?

[Пепел Феникса]

а вы случайно исходный код не сохраняете из браузера?

[Johnson]

сохраняю, но не случайно) из-за этого? и как лечится?

[Пепел Феникса]

а каким кодом?

[Johnson]

 PersistStream := WebBrowser1.Document as IPersistStreamInit;
 MemStream := TMemoryStream.Create;
 SL:=TStringList.Create;
 try
  Stream := TStreamAdapter.Create(MemStream, soReference) as IStream;
  PersistStream.Save(Stream, True);
  MemStream.Position:=0;
  SL.LoadFromStream(MemStream);
  SL.SaveToFile(PChar(ExtractFilePath(Application.ExeName))+'\Cache\HTM\main.htm');
 finally
  MemStream.Free;
  SL.Free;
 end;

по OnDocumentComplete

[Пепел Феникса]

хм...попробуй таким кодом:

procedure WB_SaveHTML(WebBrowser:TWebBrowser;FileName:string);
var
 PersistStream: IPersistStreamInit;
 FileStream: TFileStream;
 Stream: IStream;
begin
 PersistStream := WebBrowser.Document as IPersistStreamInit;
 FileStream := TFileStream.Create(FileName,fmCreate);
 try
  Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
  PersistStream.Save(Stream, True);
 finally
  FileStream.Free;
 end;
end;

[Johnson]

Сохраняет. Но Enter один фиг не проходит в браузер =\
Самое странное - сейчас попробовал закоментировать сохранение для обоих браузеров - всеравно не проходит...

Хм... сейчас создал чистый проэкт, на форму бросил только TWebBrowser и TButton
Интер всеравно не реагирует оО

[Пепел Феникса]

не зню поможет ли...но попробуй это в конец модуля(давно не работал с браузером...просто лежит исходник проектика одного из него и беру коды)

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;