diff --git a/src/screens/UScreenPartyTournamentPlayer.pas b/src/screens/UScreenPartyTournamentPlayer.pas
index 4c4c21833..b2a478169 100644
--- a/src/screens/UScreenPartyTournamentPlayer.pas
+++ b/src/screens/UScreenPartyTournamentPlayer.pas
@@ -179,6 +179,7 @@ function TScreenPartyTournamentPlayer.ParseInput(PressedKey: cardinal; CharCode:
     until ((Interactions[Interaction].Typ = iSelectS) and
       SelectsS[Interactions[Interaction].Num].Visible) or
       (Button[Interactions[Interaction].Num].Visible);
+    SetTextInput(Interactions[Interaction].Typ = iButton);
   end;
   procedure IntPrev;
   begin
@@ -187,6 +188,7 @@ function TScreenPartyTournamentPlayer.ParseInput(PressedKey: cardinal; CharCode:
     until ((Interactions[Interaction].Typ = iSelectS) and
       SelectsS[Interactions[Interaction].Num].Visible) or
       (Button[Interactions[Interaction].Num].Visible);
+    SetTextInput(Interactions[Interaction].Typ = iButton);
   end;
 begin
   Result := true;