| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TWebBrowser [D6, Win95/98]
Ёпрст © (2002-08-20 22:06:00)Как отключить реакцию TWebBrowser-а на нажатие клавиш <CTRL>+<N> (открывается окно Explorer-а)?
Ёпрст (2002-08-22 02:34:00) [1]Всем спасибо.
2 int64 © - большое... :)
int64 (2002-08-21 00:45:00) [2]Ставь TEmbeddedWB. Сможешь перехватывать любые комбинации клавишь. И определять свои.
http://www.euromind.com/iedelphi/embeddedwb/ontranslateaccelerator.htm
alena.svt (2002-08-21 00:30:00) [3]хуки само верно будет
alena.svt (2002-08-21 00:28:00) [4]>Денис М Радченко (21.08.02 00:04)
Бесполезно будет это событие только для ссылок
Денис М Радченко (2002-08-21 00:04:00) [5]Обрабатывать событие TWebBrowser OnNewWindow (примерно так называется) и установить в нем Cancel := True;
Ёпрст (2002-08-20 23:32:00) [6]2 Song ©
Написал hook на отключние нажатия <CTRL>-клавиши - всё равно не помагает... :(
unit DisableCTRLKey;
interface
implementation
var CTRLKey_Hook:THandle;
uses Windows,Controls,Messages,ShDocVw,
Dialogs,sysutils;
function CTRLKey_( nCode: Integer; WP: wParam; LP: lParam ):Integer;stdcall;
begin
if wp <> VK_CONTROL then
Result:=CallNextHookEx(ShiftKey_Hook,nCode,WP,LP);
// if wp = 78 then wp := 0;
end;
initialization
CTRLKey_Hook:=SetWindowsHookEx(WH_KEYBOARD,@CTRLKey_,HInstance,GetCurrentThreadID);
finalization
CloseHandle(CTRLKey_Hook);
end.
Ёпрст (2002-08-20 23:20:00) [7]2 VID ©
Спасибки.
Попробовал - не работает... :(
Song (2002-08-20 23:20:00) [8]А если не сработает тогда написать наследника и отловить у него WM_KEYDOWN
VID (2002-08-20 23:11:00) [9]form1.keypreview := true;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl IN Shift) and (Key = ORD("N")) or (Key = Ord("n")) then Key:=0;
end;
попробуй, может сработает...
| |
