익명 메소드를 사용하지 않고 Delphi Chromium Embedded에서 DOM 노드를 반복하는 방법은 무엇입니까?

Question

Delphi Embedded Chrome

제한된 기술로 인해 익명 메소드를 지원하지 않으므로 델파이 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;