Two TaskDialogs don't work together

FMX TMS FMX UI Pack
1

Hello,


If I nest two TaskDialogs in each other, it doesn't run onto the case part.
If I have the following scenario:

 With MainForm.TaskDialog Do
  Begin
    Parent := GetParentForm(Sender as TFmxObject ) ; 
    CustomButtons.Clear;
    CustomButtons.Add('Car');
    CustomButtons.Add('Bus');
    Title           := 'Vehicle type';
  End;

 MainForm.TaskDialog.Show(
    procedure(ButtonID: Integer)
       begin
          case ButtonID of
            100: 
             Begin
 
With MainForm.TaskDialog Do
  Begin
Parent := GetParentForm(Sender as TFmxObject ) ; 
CustomButtons.Clear;
CustomButtons.Add('Renault');
CustomButtons.Add('BMW');
Title           := 'Choose a car';
  End;

MainForm.TaskDialog.Show(
procedure(ButtonID: Integer)
   begin
  case ButtonID of
100: 
Begin
   It never gets here 
End;
101: 
Begin
  It never gets here 
End;

   end;
  end
  );  
               
             End;
            101: 
             Begin
              
             End;

           end;
      end
      );

Is there a workaround?

Thank you very much!

2

Hi,


I've taken a look into this and have applied a fix, the next version will address this.
3

Hi!


Thank you very much!