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

Вниз

Как обработать   Найти похожие ветки 

 
Vacheslav ©   (2002-01-07 13:21) [0]

нажатие клавишь, у кот. нет номера ASCII Например стрелки -> <-
Thanks


 
3d[Power] ©   (2002-01-07 14:20) [1]

formkeypress=

showmessage(inttostr(ord(key)));
покажет тебе номер клавиши, потом в зависимости от номера делай что те надо.


 
Snake ©   (2002-01-07 14:23) [2]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_LEFT then
end;


/////
VK_PRIOR Page Up key
VK_NEXT Page Down key
VK_END End key
VK_HOME Home key
VK_LEFT Left Arrow key
VK_UP Up Arrow key
VK_RIGHT Right Arrow key
VK_DOWN Down Arrow key
VK_SELECT Select key
VK_PRINT Print key (keyboard-specific)
VK_EXECUTE Execute key
VK_SNAPSHOT Print Screen key
VK_INSERT Insert key
VK_DELETE Delete key
VK_HELP Help key



P.S. Ты Help читать не пробовал?



 
Delphimun ©   (2002-01-07 14:23) [3]

У каждой клавиши есть свой номер например у ентера он #13, у буквы A он #65

Так и пиши
if key = #13 then showmessage("Enter");



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

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

Наверх




Память: 0.47 MB
Время: 0.007 c
14-75649
Потерянный
2001-11-27 15:28
2002.01.24
Попробую здесь


3-75536
Reals
2001-12-21 19:53
2002.01.24
Определение остановки и запуска MSSQL сервера...


1-75623
Belov
2002-01-08 15:43
2002.01.24
Изменение размеров картинки


3-75537
EternalWonderer
2001-12-19 12:26
2002.01.24
CREATE DOMAIN BOOL AS CHAR(1) DEFAULT N CHECK (VALUE IN ( Y , N ));


3-75500
xmapa
2001-12-20 17:43
2002.01.24
ПОСЛЕДНИЙ ПРЕДСМЕРТНЫЙ ВОПЛЬ УТОПАЮЩЕГО!!!!