[Lazarus] how to handle Shift=[ssCtrl]

[FreeMan]

Thank you Graeme,
Yes your code is working and hold ssShift, just change ssShift to 
ssCtrl, and not work, I mean not show any message. What is your test 
system ? I wrote in first message, yosemite qt x64.

      if (Shift*[ssShift,ssAlt,ssCtrl]) = [ssCtrl] then
        ShowMessage('really, only Ctrl was pressed');
      if Shift * [ssShift,ssAlt,ssCtrl] = [ssShift,ssCtrl] then
        ShowMessage('Only Shift+Ctrl was pressed');
      if ssCtrl in Shift then
        ShowMessage('Shift could have been pressed with ssctrl for 
example');



On 2.04.2015 15:39, Graeme Geldenhuys wrote:
>    if (Shift*[ssShift,ssAlt,ssCtrl]) = [ssShift] then
>      ShowMessage('really, only Shift was pressed');
>    if Shift * [ssShift,ssAlt,ssCtrl] = [ssShift,ssCtrl] then
>      ShowMessage('Only Shift+Ctrl was pressed');
>    if ssShift in Shift then
>      ShowMessage('Shift could have been pressed with ssAlt for example');