VPF::StartShortCut: TShortCut - Форум программистов

Delphist

Дата 16.10.2007, 13:36 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Как в const типа TShortCut записать значение Ctrl + Alt + A, конечно можно записать это числом, например

Код


const
   ShortCut: TShortCut = 49217;

Но мне нужно через виртуальные клавиши.

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Rrader

Дата 16.10.2007, 13:42 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


...
Uses Menus;
...
ShortCut := TextToShortCut('Ctrl+Alt+A');

Это сообщение отредактировал(а) Rrader - 16.10.2007, 13:43

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

Let's do this quickly!
Rest in peace, Vit!

Alix

Дата 16.10.2007, 15:14 (ссылка)

(голосов:1)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

Или, например, так:

Код


function scFromKey(key : word; shift, ctrl, alt : boolean) : TShortCut;
begin
  result := key;
  if shift then result := result or scShift;
  if ctrl then result := result or scCtrl;
  if alt then result := result or scAlt;
end;

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

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

Delphist

Дата 16.10.2007, 15:33 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Спасибо

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

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