delphi - 匿名メソッドを使用せずにDelphi Chromium EmbeddedでDOMノードを反復する方法は?

Question

Delphi 埋め込み Chrome

私のスキルが限られているため、匿名メソッドをサポートしていない Delphi 7 で同じことを行う方法がわかりません!

Answer 1

procedure TheProcThatHandlesItAll(const doc: ICefDomDocument)
var
  q: ICefDomNode;
begin
  // "q" is the ID of the text input element
  q := doc.GetElementById('q');
  if Assigned(q) then
    q.SetElementAttribute('value', 'Hello, world');
end

procedure TMainForm.actDomExecute(Sender: TObject);
begin
  crm.Browser.MainFrame.VisitDomProc(TheProcThatHandlesItAll);
end;