Организовать поиск

[C4eLoveK]

Доброго времении суток,знатоки и гуру)

Я создаю "Электронную книжку" с применением TreeView (для выбора файла) и WebBrowser (для вывода).
Так вот, Я бы хотел организовать поиск по WebBrowser. Я знаю, что сочитание клавиш CTRL+А выводит окно поиска, но как привязать это сочитание клавиш на конпку "Поиск" в MainMenu? Помогите пожалуйста)




Если кто знает, ещё можете написать как организовать поиск по TreeView, буду очень Вам благодарен)

Заранее блогадарю)

[grom333]

Поиск по TreeView

procedure TForm1.sButton1Click(Sender: TObject);
 var fnd:boolean;
 i:integer;
begin
fnd:=False;
for i:=0 to TreeView1.Items.Count-1 do
begin
    if Pos(Edit1.Text,TreeView1.Items[i].Text)>0 then
    begin
      TreeView1.Items.Item[i].Selected:=True;
      TreeView1.SetFocus;
      fnd:=True;
      break;
    end;
end;
if not fnd then
ShowMessage('Записей с таким именем не найдено!');
end;

[Аватар]

как привязать это сочитание клавиш на конпку "Поиск"

Menu.Item.ShortCut:=Ctrl+A; В OnClick пункта меню вызывать диалог FindDialog. Но искать все равно програмно прийдется, диалог сам ни чего не ищет

[C4eLoveK]

grom333, спасибо, работает)
Аватар, что то не получается( подсвечивает ошибку на ShortCut )

[grom333]

Из поиска:
1. В uses добавь ActiveX.
2. КОд:

const
  HTMLID_FIND = 1;
  HTMLID_VIEWSOURCE = 2;
  HTMLID_OPTIONS = 3;
//////



procedure TForm1.sdfsdf1Click(Sender: TObject);
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;

[Аватар]

В Design Time засунуть то можно, в Run Time не помню, нужно каким-то макаром 'Ctrl+A' в word преобразовать

[C4eLoveK]

Спасибо Вам большое за помощь)Оешил оставить только поиск по TreeView )