|
Find this in script
procedure LockKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
make it
procedure LockKeyDown(Sender: TObject);
then find:
OnKeyDown:=@LockKeyDown;
Make this
OnClick:=@LockKeyDown;
Note: This is not tested, I wrote code with Notepad.
|