如何捕捉两个键按下的情况并做相应处理？

Question

procedure Tcom_form.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_escape then
begin
  showmessage('esc');  //执行
end;
if key=(vk_CONTROL + vk_return) then
begin
  showmessage('ctrl_enter');  //未执行
end;

Answer 1

if (ssCtrl in Shift) and (Key = vk_return) then
  showmessage('ctrl_enter');

Answer 2

查下帮助可以看到:
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);Value MeaningssShift The Shift key is held down.
ssAlt The Alt key is held down.
ssCtrl The Ctrl key is held down.
ssLeft The left mouse button is held down.
ssRight The right mouse button is held down.
ssMiddle The middle mouse button is held down.
ssDouble The mouse was double-clicked.建议楼主多学学怎么查帮助
^_^