Lazarus: CMD-Key in OnKeyDown Event on Mac OS X

Instead of using ssCtrl, you can use the ShiftState ssMeta on Mac OS X . ssMeta is standing for the CMD key.

With this in mind, your code can look like that, for example:

procedure TForm1.Memo1KeyDown(Sender: TObject; 
  var Key: Word; Shift: TShiftState);
begin          
  if ((ssMeta in Shift) and (Key = 65)) then
    Memo1.SelectAll;  // select all
end;

If you want to compile and use the same code on Windows as well as Mac OS X (or Linux) without any change, you can use compiler switches for that purpose:

procedure TForm1.Memo1KeyDown(Sender: TObject; 
  var Key: Word; Shift: TShiftState);
begin       
  {$IFDEF DARWIN} 
    if ((ssMeta in Shift) and (Key = 65)) then
  {$ELSE}
    if ((ssCtrl in Shift) and (Key = 65)) then 
  {$ENDIF}
    Memo1.SelectAll;  // select all
end;

On Mac OS X, the code written after "DARWIN" will be compiled and with this the CMD key check, in all other cases, it will be checked for CTRL.

Alternatively, of course, you can also store the current key, then you will need only one compiler switch.

var
  AModKey: TShiftState;

procedure TForm1.FormCreate(Sender: TObject);
begin       
  {$IFDEF DARWIN} 
    AModKey := ssMeta;
  {$ELSE}
    AModKey := ssCtrl;
  {$ENDIF}
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; 
  var Key: Word; Shift: TShiftState);
begin        
  if ((AModKey in Shift) and (Key = 65)) then
  Memo1.SelectAll;  // select all
end;

In this example, we have defined one global variable AModKey, which is set when creating the Form depending on the operating system. Later in our procedures, it is sufficient to only check for AModKey so that we do not have to implement any case distinction every time again.
2017-03-27 at 21:17