| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Stupid quastion!

Птщь ©   (2002-11-20 20:43:00) 

Как в Паскале отловить нажатие клавиш: пробел и ESC

---

SottNick   (2002-11-21 07:08:00) [1]

забыл пробел указать
: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.

---

SottNick   (2002-11-21 07:04:00) [2]

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.

---

SI-riuss   (2002-11-21 01:40:00) [3]

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;


---

AndrewVolkov   (2002-11-20 21:48:00) [4]

http://pascal.sources.ru/faq/fkeycode.htm

там вроде об этом и все доступно
для пробела помойму 8 код
для еск - 27

---

Птщь   (2002-11-20 21:26:00) [5]

Именно в Паскале!!!!!

---

AndrewVolkov   (2002-11-20 20:50:00) [6]

Именно в Паскале или в delfi?

---

Наверх