Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизStupid quastion! Найти похожие ветки
← →
Птщь (2002-11-20 20:43) [0]Как в Паскале отловить нажатие клавиш: пробел и ESC
← →
AndrewVolkov (2002-11-20 20:50) [1]Именно в Паскале или в delfi?
← →
Птщь (2002-11-20 21:26) [2]Именно в Паскале!!!!!
← →
AndrewVolkov (2002-11-20 21:48) [3]http://pascal.sources.ru/faq/fkeycode.htm
там вроде об этом и все доступно
для пробела помойму 8 код
для еск - 27
← →
SI-riuss (2002-11-21 01:40) [4]ESC - #27
Пробел - толи #8, толи #32.
Типа того:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
#27: Edit1.Text:="Нахрен!";
#8: Edit1.Text:="А все-таки пробел - это #8";
#32: Edit1.Text:="А все-таки пробел - это #32";
end;
end;
← →
SottNick (2002-11-21 07:04) [5]
program demokey;
uses
crt;
var
i:integer;
key:char;
begin
writeln("Демонстрационная программа");
repeat
repeat
{занимаемся своими делами}
for i:=0 to 80*25-1 do
case mem[$b800:i*2] of
79:
mem[$b800:i*2]:=111;
111:
mem[$b800:i*2]:=79;
142:
mem[$b800:i*2]:=174;
174:
mem[$b800:i*2]:=142;
end;
until keypressed;
key:=readkey;
case key of
#13:
writeln("Тут кто-то Enter`ом балуется!!!!!!");
#27:
begin
writeln("Escape нажимать начали. Всё! Я сваливаю...");
exit;
end;
end;
until false;
end.
← →
SottNick (2002-11-21 07:08) [6]забыл пробел указать
:o)
case key of
#13:
writeln("Тут кто-то Enter`ом балуется!!!!!!");
#32:
writeln("До пробела уже добрались!!!!!!");
#27:
begin
writeln("Escape нажимать начали. Всё! Я сваливаю...");
exit;
end;
end;
а все остальные клавиши вот так сам посмотри
uses crt;
var key:char;
begin
writeln(" Press any key for look hear ASCII code (Turbo Pascal) or <Esc> for exit.");
repeat
key:=readkey;
write(ord(key):4);
if ord(key)=0 then begin key:=readkey; writeln(ord(key):4); end else writeln;
until ord(key)=27;
end.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c