answerCallbackQuery

Al-Muhandis · Sep 9, 2020 · 7d332fb · 7d332fb
1 parent 03ba287
commit 7d332fb
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/shellthread.pas b/shellthread.pas
@@ -131,6 +131,7 @@ procedure TShellThread.BotReceiveCallbackQuery(ASender: TObject; ACallback: TCal
 begin
   if not CommandStart then
     Exit;
+  FBot.answerCallbackQuery(ACallback.ID);
   FIsCallBack:=True;
   aName:=RightStr(ACallback.Data, Length(ACallback.Data)-Length(dt_dir)-1);
   case ExtractWord(1, ACallback.Data, [' ']) of