Treeview и webbrowser... !!!

[FraerFAkk]

Всем доброго времени суток! Помогите пожалуйста справиться мне с такой задачей: Есть Treeview и webbrowser. В Treeview ссылки на статьи отображаемые в web браузере . Если кликнуть на определенный итем treeviewa то открывается в webbrowserе определенная html страница. Как сделать поиск что бы он искал во всем дереве (т.е по всем html страницам ссылки которых находятся в treeview) и пункты в которых он найдет это значение добавлялись в listbox. Помогите ПЛЗ!!

[nursak]

Конкретно Вашей задачи у меня нет, но если она не найдётся то можете использовать альтернативу.
Поиск по Treeview (Treeview,Edit,Button)

procedure TForm3.Button2Click(Sender: TObject);
 var
  i: integer;
begin
  for i := 0 to sTreeView1.Items.Count - 1 do
    if Pos(AnsiUpperCase(sEdit1.Text), AnsiUpperCase(sTreeView1.Items[i].Text)) <> 0 then
    begin
      sTreeView1.Selected := sTreeView1.Items[i];
      sTreeView1.SetFocus;
      break;
    end;
end;

Поиск по html странице с подсветкой символов(button, webbrowser)

procedure TForm3.Button3Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  InvokeCMD( WebBrowser1, 1 );
end;

function TForm3.InvokeCMD(WB: TWebbrowser; nCmdID: DWORD): Boolean;
var
  vaIn, vaOut: OleVariant;
begin
   Result := InvokeCMD(WB, True, nCmdID, 0{unassigned}, vaIn, vaOut);
end;

function TForm3.InvokeCMD(WB: TWebbrowser; InvokeIE: Boolean; Value1,
  Value2: Integer; var vaIn, vaOut: OleVariant): Boolean;
var
  CmdTarget: IOleCommandTarget;
  PtrGUID: PGUID;
begin
  New(PtrGUID);
  if InvokeIE then
    PtrGUID^ := CGID_WebBrowser
  else
    PtrGuid := PGUID(nil);
  if WB.Document <> nil then
  try
    WB.Document.QueryInterface(IOleCommandTarget, CmdTarget);
    if CmdTarget <> nil then
    try
      CmdTarget.Exec(PtrGuid, Value1, Value2, vaIn, vaOut);
    finally
      CmdTarget._Release;
    end;
  except end;
  Dispose(PtrGUID);

end;

[FraerFAkk]

Спс счас буду пробывать

[Duisenbaev]

првет все у меня похожая проблема,( хочу сделать справочную систему с treeview. При нажатии на одну из пунктов или подпунктов должно отображаться соответсвующая страница html

Плиз если кто нить знаком этой проблемой пропишите