如何用回车键代替TAB键？

Question

我用下面语句，却出错
procedure Tclmxlr.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then key:=TAB;
end;
请问我应该怎么改？

Answer 1

var
   MYForm: TCustomForm;
begin
   if Key = #13 then
      begin
       MYForm := GetParentForm( Self );
              if not (MYForm = nil ) then
                   SendMessage(MYForm.Handle, WM_NEXTDLGCTL, 0, 0);
              Key := #0;      end;
      if Key <> #0 then inherited KeyPress(Key);
end;