big OK button in msgbox

[Georg]

How to realize a big ok button in a messagebox "cMsgboxOK" so that it can be pressed with the finger?

[Erel]

The message box is not customizable.
You can however show a panel with a large button instead of the msgbox.

[focusrocker]

Is there some sort of panel that can be made smaller? Maybe a quarter of the pocket pc screen. I have several used for such an animal

[Ariel_Z]

Try this (note that I use form1.text for dubug only):

Sub Globals
    'Declare the global variables here.
    jump = -10
End Sub

Sub App_Start
    AddForm("Form1", "Form1")
    AddPanel("Form1", "Panel1", 0, Form1.Height, Form1.Width, 100)
    AddTimer("Timer1")
    panel1.color = cRed
    AddButton("Form1", "B2", 0, 0, 50, 50)
    form1.text = panel1.top
    timer1.interval = 10
    AddButton("Panel1", "B1", 90, 20, 50, 50)
    Form1.Show
    
End Sub

Sub Timer1_Tick
    panel1.top = panel1.top + jump
    form1.text = panel1.top

    If panel1.top + panel1.height <= form1.height Then
        panel1.top = form1.height - panel1.height
        timer1.enabled = False
    End If
End Sub

Sub b2_Click
    timer1.enabled = True
End Sub
Sub B1_Click

    AppClose
End Sub

[Georg]

how to realize that the app waits on a click on the ok button in the panel like it works at msgbox?

[Cableguy]

As long as the customized panel in the top-most z-order, the app will wait for the button click, as long as there is no other loops or for-next going on...

[Georg]

excuse me, what das it mean "in the top-most z-order"

[Ariel_Z]

Z-order is the order in which controls (visible or invisible) controls on the form are sorted.
Use textbox1.sentToBack to send a control (textbox1 in this case) to be the last one. This means if anything else is at the same place it will be drawn on top of this textbox. Use control.BringToFront for the opposite action. The last one you place is the last on the z order. So, "last on the z-order" means - totaly visible, on top of others. If your panel (like in the sample code above) is the last one and is visible, the user can click the button. Note that the program does not necessarily wait, this depends on what you do after you show the panel. But if it's there you can click it.

[Ariel_Z]

Georg - did you manage to use this code? is it working ok? I think of publishing it as an added module and would like to have some feedback if you've used it.

Best regards,
Ariel

[Georg]

Ariel - I used this code. But it doesn't work like I wont. I need a wait after calling the OK panel, because there a some commands behind calling the panelok the sub.

p.E.

sub test
....
....
panelok
.... ' here the app should wait
....
form1.show
end sub