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 - [email protected]
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
