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


Как вызвать команды Find, Option или View Source?


Как вызвать команды Find, Option или View Source?



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

Вот пример вызова диалога

const
HTMLID_FIND = 1;  
HTMLID_VIEWSOURCE = 2;  
HTMLID_OPTIONS = 3; ...   
 
procedure TForm1.FindIE;
const
CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';  
var
CmdTarget : IOleCommandTarget;  
vaIn, vaOut: OleVariant;  
PtrGUID: PGUID;  
begin
New(PtrGUID);  
PtrGUID^ := CGID_WebBrowser;  
if WebBrowser1.Document < > nil then  
try  
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);  
if CmdTarget < > nil then  
try  
  CmdTarget.Exec( PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);  
finally  
  CmdTarget._Release;  
end;  
except  
  // Ни?его  
end;  
Dispose(PtrGUID);  
end;




Начало  Назад  Вперед