Re: [fpc-pascal] Getting Shift key with PTCCRT

[James Richters via fpc-pascal]

I came up with a solution for this.  Since I am on windows, I found I can
just check GetAsyncKeyState between keypressed and readkey like this:

         If PTCCRT.KeyPressed then
            Begin
           isShiftDown := GetAsyncKeyState(VK_Shift);
                 MyKey:=PTCCRT.ReadKey;
            End;

James


_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal