[Lazarus] KeyDown and value of Shift on Mac (Darwin)
Bart
bartjunk64 at gmail.com
Thu Sep 1 15:46:51 CEST 2011
Hi,
A question on KeyDown on Mac:
procedure TSomeEditControl.KeyDown(var Key: Word; Shift: TShiftState);
begin
if (Key = VK_SomeKey) and (Shift = [ssCtrl]) then
begin// Ctrl+SomeKey
DoSomething;
Key := 0;
end;
end;
This will do fine on PC's and I thought it would work with Cmd+SomeKey
on Mac, but is this really the case?
(Actually SomeKey is VK_C, VK_V or VK_X in this case.
If it is not, should I write widgetsetimplementations for all controls
that look for Ctrl-key in KeyDown()?
I do not have access to a Mac, so I cannot test this myself.
Bart
More information about the Lazarus
mailing list