VPF::Избавится от стандартного FindDialog'а для бразера

Гость_Raider

Дата 10.7.2005, 12:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

Гость_Raider

Дата 10.7.2005, 12:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Guest

Дата 12.7.2005, 08:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Код


...
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 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57

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

--------------------

Для друзей с винграда - скидки на разработку сайтов

Girder

Дата 20.12.2006, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 6
Всего: 155

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

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »