При нажатии выполнить Ctrl+F

[Shouldercannon]

Как можно задать на кнопку нажатие Ctrl+F?

procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;

[mihali4]

Сто раз рассматривалось.
Пример:

Как нажать Ctrl+Del программным путем

keybd_event(vk_control, 0, 0, 0);
keybd_event(vk_delete, 0, 0, 0);
keybd_event(vk_delete, 0, KEYEVENTF_KEYUP, 0);
keybd_event(vk_control, 0, KEYEVENTF_KEYUP, 0);

Переделайте под свое сочетание.

[Shouldercannon]

А как сделать, чтобы по нажатию на Ctrl+F, чтобы в TWebBrowser открылось окно поиска.

[mihali4]

У вас есть стандартный диалог FindDialog.
Открывается аналогично всем диалогам:

if ***Dialog.Execute then

[spamer]

Может Shouldercannon имел ввиду что то наподобие:

  private
    procedure Find(var Message:TMessage);message WM_HOTKEY;

...

procedure TForm1.Find(var Message:TMessage);
begin
  if FindDialog1.Execute then Caption := '1';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle,0,MOD_CONTROL,70);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(Handle,0);
end;

[dr.Chas]

Ну и ещё обычно в меню прописываются все команды, тот же поиск. Ну а в пункте меню можно назначить клавиши. Свойство ShortCut.

[Shouldercannon]

Наверно не правильно воспрос сформулировал. Задача заключается в том, чтобы вызванный FindDialog искал текст в WebBrowser расположенном на форме.

[mihali4]

Сам по себе FindDialog ничего не ищет.
Процедуру поиска нужно писать самому.

[Shouldercannon]

Какой самый простой пример процедуры поиска с помощью FindDialog в WebBrowser?

[mihali4]

Не понимаю ваших затруднений...
При нажатии CTRL+F в WebBrowser-е открывается стандартное (его собственное) окно поиска. При условии, что фокус - на WebBrowser-е...