On 04/02/2015 04:33 PM, FreeMan wrote:
> 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.
Not sure if anyone already mentioned this but is the form's KeyPreview
property set to true?
>
> 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');
>
>
> --
> _______________________________________________
> Lazarus mailing list
> [email protected]
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
