在KeyDown事件中如何获取Ctrl + S或者Ctrl + A等组合键？

Question

在KeyDown事件中如何获取Ctrl + S或者Ctrl + A等组合键？或者是Shift + 其他字母的组合键，当然，在KeyPress事件中实现也可以。先谢谢大侠们了。

Answer 1

TShiftState = set of (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble);procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=65)and(Shift=[ssCtrl])then ShowMessage('Ctrl+A');
end;

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=Ord('A')) and (Shift=[ssCtrl]) then
    ShowMessage('Ctrl+A');
end;