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
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;