[fpc-pascal] Getting Shift key with PTCCRT

James Richters james.richters at productionautomation.net
Sat Sep 10 16:57:54 CEST 2022


Thanks for the suggestion

I think the syntax should be:
type myKeyEvent = IPTCKeyEvent;
Var myShiftStatus : boolean;

myShiftStatus := myKeyEvent.Shift;

but I get IPTCKeyEvent not found.  I wonder if it's only designated as
internal.. or if I need to use something other than PTCGraph and PTCCRT

James
>looking at the list of constants in ptcpas, i find PTCKEY_SHIFT... i also
find, in Classes, the IPTCKeyEvent which has a GetShift function as well as
a Shift 
>property... seems like you should be able to the shift status with
something like

>type myKeyEvent : IPTCKeyEvent;
>type myShiftStatus : boolean;

>myShiftStatus := myKeyEvent.Shift;



More information about the fpc-pascal mailing list