Как прикрепить событие к элементам ссылки IHTMLDocument2 в Delphi? - PullRequest
Новая
       77

Как прикрепить событие к элементам ссылки IHTMLDocument2 в Delphi?

1 голос
/ 02 декабря 2009

Я использую этот код для получения всех ссылок из IHTMLDocument2: 

procedure DoDocumentComplete(const pDisp: IDispatch; var URL: OleVariant);
var
  Document:IHTMLDocument2;
  Body:IHTMLElement;
  Links:IHTMLElementCollection;
  i:integer;
  tmp:IHTMLElement;
begin
  try
  Document := (pDisp as  IWebbrowser2).Document AS IHTMLDocument2;
  Body := Document.body;
  Links := Document.links;
  for i := 0 to (Links.length-1) do
    begin
      tmp := (Links.item(i, 0) as IHTMLElement);
      //tmp.onclick := HOW SHOULD I ADD THE CALLBACK HERE?
      //ShowMessage(tmp.innerText);
    end;
  except
    on E : Exception do
      ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
  end;
end;

Как я могу прикрепить функцию / процедуру к .onclick, чтобы выполнить простую задачу, например, показать предупреждение с текстом привязки при нажатии на ссылку?

Ответы [ 2 ]

4 голосов
/ 02 декабря 2009

Одним из способов является прием событий из TWebBrowser с объектом, который реализует IDispatch (например, http://groups.google.com/group/borland.public.delphi.oleautomation/msg/a57d99e0e52c78ce)

вы бы установили 

tmp.onclick := TEventObject.Create(callbackProcedure) as IDispatch;
3 голосов
/ 29 марта 2010

Я бы не рекомендовал использовать обработчики onXXX (например, onClick) напрямую, поскольку это заменит любой ранее подключенный обработчик. Это может фактически изменить / уничтожить поведение страницы. Если вы работаете с веб-страницей, которая не находится под вашим контролем, лучше использовать attachEvent : 

(tmp as IHTMLElement2).attachEvent('onclick', callbackProcedureDisp);

И не забудьте отключить с помощью detachEvent : 

(tmp as IHTMLElement2).detachEvent('onclick', callbackProcedureDisp);

Внимание: один и тот же обработчик можно подключить несколько раз. В этом случае ваш обработчик также будет вызываться несколько раз.

Если вы заинтересованы только в onclick, вы можете просто добавить один обработчик к корневому элементу, и вам не нужно перемещаться по всем элементам. MSDN устанавливает пузыри событий, поэтому вы можете просто прикрепить один обработчик событий к элементу документа и проверять элемент srcElement объекта IHTMLEventObj при каждом срабатывании события.

...