- jak ukryc kursor textowy w pascalu
- jak zrobic, zeby w petli, po nacisnieciu jakiegos klawisza byla jakas akcja?
0
0
Część mojego programu napisanego 1999-04-15 - o w mordę - ale to dawno 8-0.
A może ja już taki stary :-P.
Wszystko, czego Ci trzeba:
Procedure Wyswietl;
var ch:char;
Ext:boolean;
begin
asm mov cx,2000h;mov ah,1;int 10h;end; {Hide cursor}
Ext:=False;
Repeat
ch:=ReadKey;
if ch=#0 then ch:=ReadKey;
case ch of
#$48:begin{Up}
end;
#$50:begin{Down}
end;
#32:begin{Space}
end;
#27:Ext:=True;
end;
Until Ext=True; {Esc = Exit}
end;