Скачать: CL | DM;

TWebBrowser   Найти похожие ветки 

← →
Ёпрст   (2002-08-20 22:06) [0]

Как отключить реакцию TWebBrowser-а на нажатие клавиш <CTRL>+<N> (открывается окно Explorer-а)?

---

← →
VID ©   (2002-08-20 23:11) [1]

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;

попробуй, может сработает...

---

← →
Ёпрст   (2002-08-20 23:20) [2]

2 VID ©
Спасибки.
Попробовал - не работает... :(

---

← →
Song ©   (2002-08-20 23:20) [3]

А если не сработает тогда написать наследника и отловить у него WM_KEYDOWN

---

← →
Ёпрст   (2002-08-20 23:32) [4]

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-21 00:04) [5]

Обрабатывать событие TWebBrowser OnNewWindow (примерно так называется) и установить в нем Cancel := True;

---

← →
alena.svt ©   (2002-08-21 00:28) [6]

>Денис М Радченко (21.08.02 00:04)
Бесполезно будет это событие только для ссылок

---

← →
alena.svt ©   (2002-08-21 00:30) [7]

хуки само верно будет

---

← →
int64 ©   (2002-08-21 00:45) [8]

Ставь TEmbeddedWB. Сможешь перехватывать любые комбинации клавишь. И определять свои.

http://www.euromind.com/iedelphi/embeddedwb/ontranslateaccelerator.htm

---

← →
Ёпрст   (2002-08-22 02:34) [9]

Всем спасибо.
2 int64 © - большое... :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c