Android Question [SOLVED] Dialog in Dialog

[rosippc64a]

Hi All,
I have a dialog with and edit field, a combobox and an info button. If I click the info button, I shows an info dialog. When I close this second info dialog with its ok button, the first dialog is also closes. How can I prevent this?

Thanks in advance
Stefan

    ...
    dialog.Title = IIf(bKedv,"Nyugtavégi kedvezmény","Borravaló")
    Dim p As B4XView = XUI.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 100%x, 150dip)
    p.LoadLayout("szamlavegiKedvezmenydlg")
    lblDialogHeader.Text = IIf(bKedv,"Megadhat kedvezményt a teljes nyugtára!","Adja meg a borravaló mértékét!")
    edtDlgValue.Text = NumberFormat2(szlengedmeny,1,2,0,False)
    Private ime As IME
    ime.Initialize("xx")
    ime.ShowKeyboard(edtDlgValue)
    'ime.SetLengthFilter(edtDlgValue,3)
    edtDlgValue.RequestFocus
    edtDlgValue.SelectAll
    cmbDlgAfter.mBase.Visible = True
    If bKedv Then
        cmbDlgAfter.SetItems(Array As String("%","HUF"))
    Else
        cmbDlgAfter.SetItems(Array As String("%","HUF","FELKEREKÍT"))
    End If
    cmbDlgAfter.SelectedIndex = szlakedvsz
    ime.SetCustomFilter( edtDlgValue, edtDlgValue.INPUT_TYPE_NUMBERS, "1234567890")
    dialog.PutAtTop = True 'put the dialog at the top of the screen
    Wait For (dialog.ShowCustom(p, "OK", "", "MÉGSE")) Complete (Result As Int)
    If Result = XUI.DialogResponse_Positive Then
    ...

Private Sub lblInfo_Click
    Private ime As IME
    ime.Initialize("xx")
    ime.HideKeyboard
    Private xdialog As B4XDialog
    xdialog.Initialize (Activity)
    xdialog.Title = "INFO"
    Private LongTextTemplate As B4XLongTextTemplate
    LongTextTemplate.Initialize
    LongTextTemplate.Text = $"A megadható érték háromféle lehet:
%: a nyugta végössegének adott része,
HUF: FIX összeg,
FELKEREKÍT: csak borravaló esetén, a nyugta végösszege és a megadott összeg közötti rész.
Ezek között úgy lehet váltani, hogy kattint az értéktől jobbra látható szövegen."$
    LongTextTemplate.CustomListView1.DefaultTextBackgroundColor = XUI.Color_White
    LongTextTemplate.CustomListView1.DefaultTextColor = XUI.Color_Black   
    Wait For (xdialog.ShowTemplate(LongTextTemplate, "OK", "", "")) Complete (Result As Int)
End Sub

 

[DonManfred]

How can I prevent this?

do not use a dialog in a dialog

 

[rosippc64a]

Simple solution, thank you Don

 

[TILogistic]

?

[B4X] [B4XPages] Nested B4XDialogs

B4A project is attached. By default, when a B4XDialog is shown it will close other visible dialogs. This is prevented with this line: Dim rs As Object = MainDialog.ShowCustom(CustomPanel, "Ok", "", "") MainDialog.Base.Parent.Tag = "" 'this will prevent the dialog from closing when the second...

www.b4x.com

 

[rosippc64a]

Thank you @TILogistic , this perfect! I didn't find this topic.
Thank you!