Funktionsaufruf in mehreren Forms

**DomPerle**

Ich habe mir die schöne Routine kopiert.
Meine Anwendung besteht aus mehreren Formularen (Form1 bis Form4)
In allen units soll diese Funktion verwendet werden. Ich habe mir nun gedacht, daß ich in der main-Form (Form1) einmal die Funktion erstelle und sie dann im gesamten Projekt an mehreren Stellen aufrufen kann. Das muß doch sicher möglich sein. Das ist doch das Prinzip von Unterprogrammen. Aber glaubt mir ich kriegs nicht hin!!

Hier der Code der unit4

zusammenfalten · markieren

Delphi-Quellcode:

			implementation

uses Konvert_Unit1;

{$R *.DFM}

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;

procedure TForm4.Button3Click(Sender: TObject);

var

prog : String;

Datei1, Datei2: String;

begin

   Prog:= Form1.Programm;

   Datei1 := 'C:\hdh\Deckel\'+prog;

   Datei2 := 'C:\DOS_PROG\DDI3\DAT\%P99.dat';

   CopyFile(PChar(Datei1),PChar(Datei2),false);

   MyShowMessage('Übertragung durchgeführt', 12);

end;

Funktionsaufruf in mehreren Forms

Funktionsaufruf in mehreren Forms

Forumregeln