Changeset 725 for trunk/Messg.pas

Timestamp:

Jan 13, 2026, 4:01:26 PM (3 months ago)

Author:

chronos

Message:

• Modified: Initialize InputDlg, MessgDlg and SettingsDlg dialogs dynamically on demand.

File:

• trunk/Messg.pas (modified) (3 diffs)

trunk/Messg.pas

@@ -33 +33 @@
   end;
 
-var
-  MessgDlg: TMessgDlg;
 
 procedure SimpleMessage(SimpleText: string);
@@ -102 +100 @@
 procedure SimpleMessage(SimpleText: string);
 begin
-  with MessgDlg do
-  begin
+  with TMessgDlg.Create(nil) do
+  try
     MessgText := SimpleText;
     Kind := mkOK;
     ShowModal;
+  finally
+    Free;
   end;
 end;
@@ -112 +112 @@
 procedure SoundMessage(SimpleText, SoundItem: string);
 begin
-  with MessgDlg do
-  begin
+  with TMessgDlg.Create(nil) do
+  try
     MessgText := SimpleText;
     OpenSound := SoundItem;
     Kind := mkOK;
     ShowModal;
+  finally
+    Free;
   end;
 end;