<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=EN-US link="#0563C1" vlink="#954F72"><div class=WordSection1><p class=MsoNormal>I am working on a console application that uses the graph unit. I want my graphics window to be the one that accepts keyboard input, I found out that if I just change to ‘WinCRT’ instead of ‘CRT’ it does exactly this… however there is a problem with WinCRT that I do not understand. Please reference my test program: <o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><span style='font-family:Consolas'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'>Program KeyTestWin.pas;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'>Uses Graph,<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'>// CRT;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> WinCRT;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'>Var<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Test:Char;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> GD,GM:Integer;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'>Begin<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> gd:=detect;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> gm:=0;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Initgraph(gd,gm,'');<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> repeat<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Test:=readkey;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> if Test<>Chr(0) then<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Writeln ('KeyCode: ',Ord(Test))<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Else<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> begin<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Test := Readkey;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Writeln ('Extended: ',Ord(Test));<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> end;<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'> Until Test=Chr(27);<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:Consolas;color:#002060'>End.<o:p></o:p></span></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>If I comment out WinCRT and uncomment CRT and run it, then I get almost the full keyboard, for example <o:p></o:p></p><p class=MsoNormal>ALT-X = Extended: 45<o:p></o:p></p><p class=MsoNormal>CTRL *= Extended: 150<o:p></o:p></p><p class=MsoNormal>CTRL 8 = Extended: 9<o:p></o:p></p><p class=MsoNormal>F10 = Extended: 68<o:p></o:p></p><p class=MsoNormal>CRTL F10 = Extended: 103<o:p></o:p></p><p class=MsoNormal>ALT F10 = Extended: 113<o:p></o:p></p><p class=MsoNormal>I do notice just a few keys that windows intercepts, like F11 makes it full screen and my application never sees the keystroke, but actually very few keys are intercepted by windows like this.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>But with WinCRT instead of CRT, None of these and many more report anything at all.. it’s as if I didn’t even hit a key. <o:p></o:p></p><p class=MsoNormal>NONE of the keys wit ALT respond at all<o:p></o:p></p><p class=MsoNormal>CTRL works with most Letters but NO number<o:p></o:p></p><p class=MsoNormal>F10, F11, and F12 do not work.. etc… etc… etc.. you get the idea, it’s extremely limited.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Does anyone have any idea why this is happening or if there is another way to get keyboard input on the graph window and be able to use the entire keyboard?<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Any help is greatly appreciated!<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>James<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>