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

Вниз

Ctrl+ a    Найти похожие ветки 

 
ss300   (2004-04-16 17:33) [0]

как можно узнать код клавиши сабж ?


 
ss300   (2004-04-16 17:34) [1]

в смысле, не подскажете какой код  сочетании клавиш ctrl+"a"


 
clickmaker ©   (2004-04-16 17:35) [2]

Код "a" - 97
Что нажата Ctrl - GetKeyState(VK_CONTROL)


 
WebErr ©   (2004-04-16 17:38) [3]

Наверное всё-таки имеется в виду ^A точно не помню, но по моему ^A = #1.


 
ssk   (2004-04-16 17:39) [4]

тогда может так?

if (ssCtrl in Shift) and (key = 97) then


 
WebErr ©   (2004-04-16 17:39) [5]

Так что код = 1.


 
ss300   (2004-04-16 17:41) [6]

ни тот ни другой не срабатывает.. #1 тоже не работает

есть еще варианты, братья?


 
ss300   (2004-04-16 17:49) [7]

разобрался.. код клавиши a = 65 :)


 
ssk   (2004-04-16 17:53) [8]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if ((ssCtrl in Shift) and (Key = 65)) then
   ShowMessage("Ctrl+A");
end;


 
WebErr ©   (2004-04-16 18:04) [9]

Я бы всё-таки учитывал регистр и изменение раскладки:

case Key of
 "A","a","Ф","ф":
   if ssCtrl in Shift then
     ShowMessage("Someone call the doctor?");
end;


 
WebErr ©   (2004-04-16 18:07) [10]

Вернее что-то вроде Char(Key) потому что паскаль - это не С!


 
WebErr ©   (2004-04-16 18:07) [11]

Вернее что-то вроде Char(Key) потому что паскаль - это не С!



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

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

Наверх




Память: 0.48 MB
Время: 0.023 c
1-1082022812
avgur
2004-04-15 13:53
2004.05.02
Я уже туплю... Вопрос о времени


14-1081301245
Skleroz
2004-04-07 05:27
2004.05.02
Все Хабаровчане (или не..), кому время девать некуда - тестируем!


1-1081844252
Dimerol
2004-04-13 12:17
2004.05.02
Management памяти.


14-1081855248
Layner
2004-04-13 15:20
2004.05.02
Что такое бизнес логика?


6-1078833851
LAndreyV
2004-03-09 15:04
2004.05.02
Время запроса при скачивании HTML