[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