| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
клавиатура [D7, WinXP]
ko © (2004-07-25 20:55:00)Как отловить нажатие клавиши Ctrl+S? Код IF (Key =$11) and(key=$53) THEN ;работать не хочет.
MU (2004-07-26 07:10:00) [1]>>TopT
Да-да!!!
TopT (2004-07-26 00:51:00) [2]2 MU
Не совсем верно, так как ты написал, будут срабатывать сочетания клавиш alt+ctrl+S и Shift+Ctrl+s ну и alt+ctrl+shift+s :)
Надо написать так
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = $53) and ([ssCtrl]=Shift) then ...;
end;
MU (2004-07-25 21:15:00) [3]>> IF (Key =$11) and(key=$53) THEN
:))
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = $53) and (ssCtrl in Shift) then
...
end;
еще KeyPreview := true у формы;
| |
