Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.vb

@@ -1,19 +1,21 @@
-Imports DigitalData.Modules.Logging
+Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_IDBEntity
     Implements IAdminForm
     Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
     Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
+    Private FormHelper As FormHelper
 
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        InitializeBaseForm(My.LogConfig)
         Me.PrimaryKey = PrimaryKey
         Me.IsInsert = IsInsert
+        FormHelper = New FormHelper(My.LogConfig, Me)
     End Sub
 
     Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -27,7 +29,7 @@ Public Class frmAdmin_IDBEntity
             End If
 
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "frmAdmin_IDBEntity_Load")
         End Try
     End Sub
 
@@ -74,7 +76,7 @@ Public Class frmAdmin_IDBEntity
 
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "SaveData")
             Return False
         End Try
     End Function
@@ -84,7 +86,7 @@ Public Class frmAdmin_IDBEntity
             TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey)
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "DeleteData")
             Return False
         End Try
     End Function