Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb

@@ -1,5 +1,6 @@
 Imports DevExpress.XtraEditors.DXErrorProvider
 Imports DevExpress.XtraLayout
+Imports DigitalData.GUIs.Common
 
 Public Class frmAdmin_SourceSQL
     Implements IAdminForm
@@ -11,13 +12,15 @@ Public Class frmAdmin_SourceSQL
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
 
     Private Pages As ClassDetailPageManager
+    Private FormHelper As FormHelper
 
     Public Sub New(PrimaryKey As Integer)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
+
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        InitializeBaseForm(My.LogConfig)
+        FormHelper = New FormHelper(My.LogConfig, Me)
         Me.PrimaryKey = PrimaryKey
     End Sub
 
@@ -45,7 +48,7 @@ Public Class frmAdmin_SourceSQL
 
             ValidationHelper()
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "frmAdmin_SourceSQL_Load")
         End Try
     End Sub
 
@@ -105,8 +108,8 @@ Public Class frmAdmin_SourceSQL
 
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
-        Return False
+            FormHelper.ShowErrorMessage(ex, "SaveData")
+            Return False
         End Try
     End Function
 
@@ -115,7 +118,7 @@ Public Class frmAdmin_SourceSQL
             TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey)
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "DeleteData")
             Return False
         End Try
     End Function