Oder ist Deine Frage = "Wie erstelle ich eine Helfer
Unit und binde diese ein?"
Delphi-Quellcode:
unit DomPerleHelfer;
interface
uses
// hier trag alles ein was diese Unit für ihre sub-funktionen benötigt.
// ich habe nicht getestet auf welche Units deine MyShowMessage basiert.
function MyShowMessage(
const AMessage:
string; AFontSize: Integer): Integer;
implementation
function MyShowMessage(
const AMessage:
string; AFontSize: Integer): Integer;
var
dlg: TForm;
begin
dlg := CreateMessageDialog(AMessage, mtInformation, [mbOK]);
try
dlg.Position := poScreenCenter;
dlg.ScaleBy(AFontSize, dlg.Font.Size);
Result := dlg.ShowModal;
finally
dlg.Free;
end;
end;
end.
Ergänze hier das Uses !
Binde DomPerleHelfer in jeder
Unit mit der Uses Anweisung ein wo Du MyShowMessage() brauchst.
Fertig.