如何實現RETURN + SPACE 组合键功能

Question

我是这样写的
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (key = VK_SPACE AND VK_RETURN) THEN
     ShowMessage('hello');
end;
不行，清高手指点
顺便问一下，怎样给分，我是新手，不要笑

Answer 1

你这个问题接近于Mission Impossible
系统响应RETURN和SPACE，肯定是有先后次序的，不会同时响应的。这不象CTRL+SPACE或CTRL+RETURN

Answer 2

那麼,如何實現CTRL+RETURN呢?請指點

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (key = #13) AND (Shift = [ssCtrl]) THEN
     ShowMessage('hello');
end;

Answer 4

thanks to movingboy(movingboy)
給分