用回车代替Tab键

（1）在界面的OnActive事件中，

procedure TfrmTech_Material.FormActivate(Sender: TObject);

begin

  self.KeyPreview:= true;

end;

 

（2）在界面的OnKeydown事件中，

procedure TfrmTech_Material.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);begin  if (Key = 13) then  begin

    Key:= 0;

    Perform(WM_NEXTDLGCTL, 0, 0);

  end;

end;