Скачать: CL | DM;

Обработчик событий в паскале   Найти похожие ветки 

← →
gg   (2003-09-15 21:53) [0]

Скажите как можно в TP по нажатию клавиши делать какое-либо действие. В данном случае мне нужно закрасить экран.

---

← →
Programmer_SC   (2003-09-15 22:38) [1]

Ну если стандартный ReakKey вас не устраивает..
Рассмотрим перехват обработчика клавы
uses Dos;

Var
IntSave : Pointer;

{$F+}
Procedure KeyboardHandler; Interrupt;
Begin
WriteLn("Hello from KeyboardHandler");
Asm
Call IntSave
End;
End;
{$F-}
Begin
GetIntVec($09,IntSave);
SetIntVec($09,Addr(KeyboardHandler));
ReadLn;
SetIntVec($09,IntSave);
End.

Че не понятно пиши

---

← →
PVOzerski ©   (2003-09-16 10:34) [2]

Вроде б перед call IntSave pushf надо... Или я всё уже забыл? :^)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c