Delphi - база знаний

       

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


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



Взято из FAQ:
Перевод материала с сайта members.home.com/hfournier/webbrowser.htm  
 

Данный пример показывает как определить в каких фреймах разрешена команда '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;

Автор: Peter Friese




Содержание раздела