home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / pascal / 4476 < prev    next >
Encoding:
Internet Message Format  |  1992-07-20  |  740 b 
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sample.eng.ohio-state.edu!purdue!news.cs.indiana.edu!lynx!nmsu.edu!usenet
  2. From: ahall@nmsu.edu (HALL)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Arrow keys in TP6.0
  5. Message-ID: <1992Jul21.043119.9716@nmsu.edu>
  6. Date: 21 Jul 92 04:31:19 GMT
  7. Sender: usenet@nmsu.edu
  8. Organization: New Mexico State University
  9. Lines: 15
  10.  
  11. Somebosy was asking how to scan for arrow keys in TP6.0. ( I'm sorry I don't remember who it was)
  12.  
  13. Here's an example code:
  14.  
  15. ch := readkey;
  16. if ch = #0 then
  17. begin
  18.   ch := readkey;
  19.   if ch = #72 then uparrow
  20.   else if ch = #75 then leftarrow
  21.   else if ch = #77 then rightarrow
  22.   else if ch = #80 then downarrow;
  23. end;
  24.  
  25. I use similar procedures in "menubar" style menus.  Hope this helps.
  26.