Moin,
folgender Code in der Bearbeitung eines Fenster
void_button=fehler_within(e).ShowModalWithin(self)
mit :
Function fehler_within(fehler as string) As messageDialog
dim nr as integer
dim d As MessageDialog
d=new MessageDialog
if left(fehler,1)="M" then
nr=Val(Right(fehler,3))
else
nr=0
end if
beep
d.icon=MessageDialog.GraphicCaution //display warning icon
d.ActionButton.Caption="Ok"
d.Message=fehler_text(nr)
return d
End Function
Der Dialog wird angezeigt, aber das Betätigen des OK-Knopfes führt nicht zum
Schließen des Dialoges, wie in allen Versionen vorher,
sondern der Dialog bleibt offen.
Ich kann das Menü bedienen, selbst Quitt funktioniert in der Form, das alle
Fenster schließen, aber das Programm läuft trotzdem weiter und
muss über sofort beenden beendet werden.
Gefunden ab Version 2012 r2.1 und in Xojo
Ist das ein Bug ?
MfG
Michael Ebsen
_______________________________________________
Unsubscribe by sending a message to:
<nug.de-le...@lists.xojo.com>
