VPF::Сложная комбинация клавиш - Форум программистов

CHERRY

Дата 21.3.2007, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

Как в RichEdit отследить нажатие сложных комбинаций клавиш
Например: Ctrl+Q+Y в RichEdit

--------------------

Трясу надежды ветвь, но где желанный плод?

Snowy

Дата 21.3.2007, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Отследить никак.
Подобные комбинации не порождают единого сообщения.
Проверить нажаты ли в данный момент все три можно - GetKeyState

Yanis

Дата 21.3.2007, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код

function IsKeysDown(const a: array of Byte): Boolean;
var
  i, l, h, c: Integer;
  State : TKeyboardState;
begin
  Result := False;
  c := 0;
  l := Low(a);
  h := High(a);
  GetKeyboardState(State);
  for i := l to h do
    if ((State[a[i]] And 128) <> 0) then
      Inc(c);

  Result := c = Length(a);
end;

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if IsKeysDown([VK_CONTROL, Ord('Q'), Ord('W'), Ord('E')]) then
    begin
      RichEdit1.Lines.Add('Ctrl+Q+W+E pressed');
      Key := #0;
    end;

  if IsKeysDown([VK_SHIFT, Ord('Q')]) then
    begin
      RichEdit1.Lines.Add('Shift+Q pressed');
      Key := #0;
    end;
end;

--------------------

*щёлк*

CHERRY

Дата 21.3.2007, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

Спасибо.
В хелпе Delphi 2006 описаны виртуальные клавиши в виде

VK_LSHIFT (A0)
Left SHIFT key

VK_RSHIFT (A1)
Right SHIFT key

VK_LCONTROL (A2)
Left CONTROL key

VK_RCONTROL (A3)
Right CONTROL key

как с ними работать?
Насколько я знаю раньше вопределить левый-правый Ctrl было трудно.

--------------------

Трясу надежды ветвь, но где желанный плод?

Yanis

Дата 21.3.2007, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(CHERRY @ 21.3.2007, 19:49

)

Насколько я знаю раньше вопределить левый-правый Ctrl было трудно.

С приходом 2000 и XP стало легче smile

Цитата(CHERRY @ 21.3.2007, 19:49

)

как с ними работать?

Очень легко:

if IsKeysDown([VK_LCONTROL, Ord('......),....) then
if IsKeysDown([VK_RCONTROL, Ord('......),....) then
if IsKeysDown([VK_RSHIFT, Ord('......),....) then

и т.д.

Функция универсальная. Главное код символьных клавишь передавать для верхнего регистра.

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »