Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.008 c