關於WM_KEYDOWN消息

Question

小弟要實現在 Tedit 中‘Enter’ 跳至下一個 componect ：從Tedit 繼臣 一 組件
捉WM_KEYDOWN消息 ，作如下操作，不知為什麼就是不能 跳 至 下一個 componect，
同時 ‘Tab’鍵  WM_KEYDOWN 不能捕捉嗎？procedure CMKeyDown(var message:TWMKEYDOWN); message WM_KEYDOWN ;procedure TDBEdit_S.CMKeyDown(var message:TWMKeyDown);
begin
 showmessage(inttostr(message.CharCode)); if message.CharCode=13 then
   begin
    PerForm(WM_NEXTDLGCTL,0,0);
   end ;
end;

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);
end;