fpc r30400 lazarus r48585 yosemite qt x64

procedure TFRM_.TLabel1_MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X  , Y: Integer);
begin
if(Button=mbRight)then begin
   if Shift=[ssCtrl] then begin
    ShowMessage('ctrl key pressed :');
   end;
end;
end;

while debuging, move mouse on "Shift" and hint show values is 128, ssCtrl values is SSCTRL. and its not aqual, I mean I can not handle ctrl
+ right click on Tlabel.
command key = 4
ssctrl =128
ssAlt = 2
ssShift = 1
ssctrl + ssAlt = 130
some shift values from hint

Hi,
?
You must use:
if ssCtrl in Shift then ...
instead.
?
That's because mouse-buttons are in Shift too. If you do Ctrl+right-click, then Shift=[ssRight, ssCtrl]. And possibly something else (ssCaps). ?
V.
______________________________________________________________

fpc r30400 lazarus r48585 yosemite qt x64

procedure TFRM_.TLabel1_MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X ?, Y: Integer);
begin
if(Button=mbRight)then begin
 ? if Shift=[ssCtrl] then begin
 ? ?ShowMessage('ctrl key pressed :');
 ? end;
end;
end;

while debuging, move mouse on "Shift" and hint show values is 128, ssCtrl values is SSCTRL. and its not aqual, I mean I can not handle ctrl
+ right click on Tlabel.
command key = 4
ssctrl =128
ssAlt = 2
ssShift = 1
ssctrl + ssAlt = 130
some shift values from hint

in mouseup tnotifyevent,
shift parameter has not value of mouse button, values is zero. Button parameter has value, mbRight etc.
if ssCtrl in Shift then... has same result, I mean not handle ctrl or other keys(ssalt, ssshift)

Vojt?ch ?ih?k wrote

if ssCtrl in Shift then ... instead.

It depends on how precise you want to be. Do you want that if statement to execute even if Ctrl+Shift is pressed, or _only_ when Shift is pressed?

To get ONLY the specific modifier key, then you need to mask the result. For example:

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  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');
end;

The last if statement will trigger if you pressed Shift, or Shift+Ctrl, or Shift+Alt, or Shift+Ctrl+Alt

Regards,
- Graeme -

You are right, what I said is valid for MouseDown. In MouseUp you have ssCtrl in Shift and Buton=mbRight ?
V.
?

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');

FreeMan wrote

Yes your code is working and hold ssShift, just change ssShift to ssCtrl, and not work, I mean not show any message.

I tested here by changing ssShift to ssCtrl and it works perfectly.

  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('Ctrl could have been pressed with ssAlt or ssShift for
example');

What is your test system ?

64-bit FreeBSD with LCL-GTK2

I wrote in first message, yosemite qt x64.

If it doesn't work on your system, then it must be another bug in LCL. You should then file a bug report on Mantis. I suggest you also supply the test code above.

Regards,
- Graeme -

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?

constant name are wrong I think,
ssMeta -> ctrl key
ssCtrl -> cmd (command) key
fpc r30400 lazarus r48594 on yosemite qt x64

      if Shift * [ssShift, ssAlt, ssCtrl, ssMeta] = [ssCtrl]then
ShowMessage('ssCtrl(command key) pressed');
      if Shift * [ssShift, ssAlt, ssCtrl, ssMeta] = [ssMeta]then
ShowMessage('ssMeta(ctrl key) pressed');
      if Shift * [ssShift, ssAlt, ssCtrl, ssMeta] = [ssMeta,ssShift]then
ShowMessage('ssShift + ssMeta(ctrl key) pressed');
      if Shift * [ssShift, ssAlt, ssCtrl, ssMeta] = [ssCtrl,ssAlt]then
ShowMessage('ssAlt + ssCtrl(command key) pressed');