在FORM里怎样做到敲回车时触发TAB键?

Question

在线给分!!!

Answer 1

设置Form的KeyPreview为True，在OnKeyPress事件中：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin
    keybd_event(VK_TAB, 0, 0, 0);
    keybd_event(VK_TAB, 0, 2, 0);
  end;
end;

Answer 2

procedure TFrm_FileEdit.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = 13 Then
    Begin
      perform(WM_NEXTDLGCTL, 0, 0);
      exit;
    End;end;