Горячие клавиши

← →
Age (2008-09-01 21:15) [0]

Здравствуйте, многоуважаемые мастера Delphi!
Существует проблема с горячими клавишами, дело в том что мне необходимо, что бы выполнялись определенные действия при нажатие на клавиши ctrl+Enter. Все бы ни чего, нашел код все работает, но проблема в том, перехватываются во всем приложениях. Вопрос как можно реализовать так, чтобы выполнялось только, когда курсор расположен в моем приложений в RxRichEdit?
Вот код который я использовал:
procedure Tmainform.WM_HotKeyHandler (var Message: TMessage); var idHotKey: integer; //идентификатор, но об этом - позже fuModifiers: word; //модификатор MOD_XX uVirtKey: word; //код виртуальной клавиши VK_XX begin // параметры сообщения получаем так: idHotkey:= Message.wParam; fuModifiers:= LOWORD(Message.lParam); uVirtKey:= HIWORD(Message.lParam); //теперь - небольшая проверочка: if (fuModifiers = MOD_CONTROL) AND (uVirtKey = VK_RETURN) and (RxRichEdit.focused) then sendbutton.click(); inherited; end;

И в событие OnKeyDown, компонента RxRichEdit
keyid:=GlobalAddAtom("My Hotkey"); //создаем атом RegisterHotKey(handle,keyid,MOD_CONTROL,VK_RETURN);

← →
@!!ex © (2008-09-01 21:35) [1]

Так не юзай горячие клавиши. Юзай событие OnKeyDown.
ГОрячие клавиши тут нафигш не сплющились...
Они как раз нужны, когда надо реагировать на нажатие во всей системе...

← →
Age (2008-09-01 21:38) [2]

Я именно так и начал, но мне необходимо именно Ctrl+Enter как можно это отследить? Получать код не помогает и использование виртуальные клавиши то же не получилось?!

← →
MsGuns © (2008-09-01 22:36) [3]

TAction ?

← →
Loginov Dmitry © (2008-09-01 22:52) [4]

> Существует проблема с горячими клавишами, дело в том что
> мне необходимо, что бы выполнялись определенные действия
> при нажатие на клавиши ctrl+Enter. Все бы ни чего, нашел
> код все работает, но проблема в том, перехватываются во
> всем приложениях. Вопрос как можно реализовать так, чтобы
> выполнялось только, когда курсор расположен в моем приложений
> в RxRichEdit?

Обычно проблема как раз возникает на глобальном перехвате. На перехвате в рамках своего приложения все просто, все в твоих руках. Обычный KeyDown на ричедите отлично справляется, ровно как и TAction.
Пример:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in Shift) and (Key = VK_RETURN) then begin // end; end;

← →
Age (2008-09-01 23:41) [5]

Loginov Dmitry © (01.09.08 22:52) [4]

Большое спасибо о мастер!!!
Всем спасибо кто пытался помочь

> нашел код все работает, но

А не надо искать код. Надо читать и учить.

> [5] Age (01.09.08 23:41)

Это просто реализация того, что я написал в [1].
Почему бы не залезть в хелп и не посмотреть описание параметров метода??

Nный раз читаю тему топика и думаю что очередной спам покно-клавиш :) enlarge your keyboard

Горячие клавиши Найти похожие ветки