Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.08;
Скачать: CL | DM;

Вниз

Как отловить нажатие кнопки минуса.   Найти похожие ветки 

 
vegarulez ©   (2007-03-17 19:04) [0]

Привет всем мастерам!
У меня вот такой вопрос, отлавливаю нажатие кнопки с помощью такого кода


...
private
 procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...
const
 MyHotKey = ord("1");

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
 MessageBeep(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnRegisterHotKey(Form1.Handle, MyHotKey);
end;


Вопрос как можно отловить нажатие  "-"  (минуса).
Просто не знаю его кода а прямым присваиванием "-" не хочет отловить...
подскажите какой аски код у знака минуса (на нум паде в самом верхнем правом углу).

И вопрос нумбер ту - где можно посмотреть таблицу кодировки знаков и кнопок, аски кодов... и так же функциональных кнопок... допустим чтобы отловить ентер отлавливаю #13, а остальные функциональные кнопки по другим кодам отлавливать нужно...

Подскажите ссыль, где про это можно почитать.


 
Desdechado ©   (2007-03-17 19:10) [1]

В справке ищи "Virtual key codes"


 
vegarulez ©   (2007-03-17 19:34) [2]

Ухху. пасип.

В продолжении темы....

А как отловить несколько кнопок??

Допустим  VK_SUBTRACT  и VK_ADD.

Ещё добавлять процедуры - аналогичные приведённой выше или как???

Подскажите.


 
Roman_S ©   (2007-03-17 19:34) [3]

Дополнительный вопрос:
with listView1 do
for i:=0 to count-1 do
копируем файлы

Как научить программу реагировать на нажатие пр. "Esc" для остановки процесса?



Страницы: 1 вся ветка

Текущий архив: 2007.04.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
15-1173857443
Knight
2007-03-14 10:30
2007.04.08
Кто какими клиентами пользуется?


6-1161325036
YurkaT
2006-10-20 10:17
2007.04.08
IdHTTPServer - проблемма с выполнением JS


15-1174061032
wacom
2007-03-16 19:03
2007.04.08
HEAD, GET + Content-Length


2-1173949006
Нуб
2007-03-15 11:56
2007.04.08
копирование данных с excel в стрингрид


2-1173987499
Востоковед
2007-03-15 22:38
2007.04.08
Таблица <-> Delphi - Новичок запутался...