Как работать со всеми фреймами, отображёнными в данный момент в WebBrowser

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как работать со всеми фреймами, отображёнными в данный момент в WebBrowser

Автор: Peter Friese

- Тук-тук!
- Кто там?
- Это я, Веб-браузер!
- А фреймы поддерживаешь?
- Не-е-а!
- Тогда и за веревочку не дергай!

Данный пример показывает как определить в каких фреймах разрешена команда 'copy':

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to (WebBrowser1.OleObject.Document.frames.Length - 1) do
    if WebBrowser1.OleObject.Document.frames.item(i).document.queryCommandEnabled('Copy') then 
      ShowMessage('copy command is enabled for frame no.' + IntToStr(i));
end;