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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
