Сочетания клавишь срабатывают только в для главной формы

← →
Max[xx] (2005-09-29 22:35) [0]

Здравствуйте. Есть главная форма и не главная, у главной есть TAction с ShortCut = Ctrl +v, на модальной форме (в runtime) пытаюсь вставить в TCombobox текст нажатием Ctrl +v, срабатывает action главной формы с этим сочетанием. Раньше решал этот вопрос кодом типа:

function ...(var message: TMessage): Boolean; begin Result := False; with message do case Msg of CM_APPKEYDOWN, CM_APPSYSCOMMAND: Msg := WM_NULL; end; { case } end;

Может быть есть другие способы? Спасибо.

← →
Max[xx] (2005-09-30 03:16) [1]

ап?

← →
TUser © (2005-09-30 10:41) [2]

Проверить GetActiveWindow в акшене?

← →
Max[xx] (2005-09-30 12:42) [3]

> TUser © (30.09.05 10:41) [2]
>
> Проверить GetActiveWindow в акшене?

Проще обработать сообщение..просто беглый разбор сторонних исходников показал что там нет ни GetActiveWindow ни моего способа, однако все работает как должно. Но исходники достаточно замороченные, пока не докопался до сути. Еще предложения?

← →
Max[xx] (2005-09-30 17:54) [4]

Удалено модератором

← →
Sashka © (2005-10-01 18:26) [5]

Первое, что приходит в голову: в основной форме на OnActivate повесить Enabled := true для экшена, на OnDeactivate, соответственно, наоборот...

← →
Anatoly Podgoretsky © (2005-10-01 19:43) [6]

Max[xx] (30.09.05 03:16) [1]
Зачем звал?

← →
Германн © (2005-10-02 01:36) [7]

2 Anatoly Podgoretsky © (01.10.05 19:43) [6]
> Зачем звал?

Не ну Анатолий - это уже перебор! Мы же не виноваты! Это Borland использует ваш дополнительный ник!

Max[xx] (29.09.05 22:35)
Может быть есть другие способы
Знакомая проблема...Такие Шорткаты я обычно делаю только в меню...они действуют более локально....

← →
Max[xx] (2005-10-02 03:14) [9]

>
> Зачем звал?

:o)

Ладно, будем делать как раньше. Всем спасибо.

Сочетания клавишь срабатывают только в для главной формы Найти похожие ветки