Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Избавится от стандартного FindDialog'а для бразера

Автор: Гость_Raider 10.7.2005, 12:05

Что нужно сделать для того чтобы по нажатию клавиш <Ctrl> + <F> в браузере
вместо стандартного FindDialog'а вылетал мой ?

P.S
Хоть я и поставил на горячие клавиши свой FindDialog, но он не срабатывает
на них, вместо него вылетает стандартный. smile

Автор: Гость_Raider 10.7.2005, 12:06

Имеется ввиду TWebBrowser

Автор: Guest 12.7.2005, 08:27

Вот каким образом можно избавиться от стандартного диалога поиска
текста для браузера:

Код


...
private    
  procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

end;

const
  FindDialogID = 1;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHotKey(var Message: TMessage);
begin
ShowMessage('<CTRL> + <F>');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.GoHome;
RegisterHotKey(Handle, FindDialogID, Mod_Control, $46);
end;

Огромный респект создателям DRKB smile

Автор: December 13.12.2006, 22:41

Возрождаю тему...
Предложенный solution неюзабелен, так как реагирует на Ctrl+F даже в других приложениях (system-wide)
В OnShortcut перехват Ctrl+F не работает... Какие есть ещё идеи?

Автор: Girder 20.12.2006, 11:50

После загрузки повесь событие(обработку горячей клавиши) на Body документа