Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Как обработать 


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");




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.034 c
1-75558           Tolik2002             2002-01-05 11:29  2002.01.24  
Ресурсы


6-75634           Mihaliu               2001-11-02 11:21  2002.01.24  
WEB APACHE USTANOVCA


14-75684          Dup                   2001-11-27 10:25  2002.01.24  
?


1-75565           BuG                   2002-01-05 01:56  2002.01.24  
помагите плиз


7-75700           3d[Power]             2001-10-11 20:39  2002.01.24  
Трэкбар