Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb

@@ -6,7 +6,8 @@ Public Class frmAdmin_UserGroupRelations
 
     Public ReadOnly Property LogConfig As Modules.Logging.LogConfig Implements IBaseForm.LogConfig
     Public ReadOnly Property Logger As Modules.Logging.Logger Implements IBaseForm.Logger
-    Public ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
+
+
     Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
     Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
@@ -14,6 +15,7 @@ Public Class frmAdmin_UserGroupRelations
     Private Property SelectedGroupId As Integer = Nothing
     Private Property SelectedAvailableUser As Integer = Nothing
     Private Property SelectedRelatedUser As Integer = Nothing
+    Private FormHelper As FormHelper = Nothing
 
     Public Sub New(pPrimaryKey As Integer)
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -21,7 +23,7 @@ Public Class frmAdmin_UserGroupRelations
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         LogConfig = My.LogConfig
-        ErrorHandler = New BaseErrorHandler(LogConfig, Me)
+        FormHelper = New FormHelper(LogConfig, Me)
     End Sub
 
     Private Async Sub frmAdmin_UserGroupRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -39,7 +41,7 @@ Public Class frmAdmin_UserGroupRelations
             Dim oTable As DataTable = Await My.DatabaseECM.GetDatatableAsync(oSQL)
             GridControl2.DataSource = oTable
         Catch ex As Exception
-            ErrorHandler.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
+            FormHelper.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
         End Try
     End Sub
 
@@ -56,7 +58,7 @@ Public Class frmAdmin_UserGroupRelations
             Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
             Return oTable
         Catch ex As Exception
-            ErrorHandler.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
+            FormHelper.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
             Return Nothing
         End Try
     End Function
@@ -72,7 +74,7 @@ Public Class frmAdmin_UserGroupRelations
             Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
             Return oTable
         Catch ex As Exception
-            ErrorHandler.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
+            FormHelper.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
             Return Nothing
         End Try
     End Function