Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c