Code: Alles auswählen
Dim oDlgModel As Object
Dim oDlgView As Object
Rem Dialog erzeugen
oDlgModel = createUnoService("com.sun.star.awt.UnoControlDialogModel")
oDlgModel.Title = "Anforderungen"
oDlgView = createUnoService(oDlgModel.DefaultControl)
oDlgView.setModel(oDlgModel)
Code: Alles auswählen
createUnoService("com.sun.star.awt.UnoControlEditModel")
Gibt es eine Möglichkeit, das trotzdem umzusetzen, evtl. mittels eines anderen Controls?