Halli hallo,
und schon wieder hab ich n Problem
.
Auf folgende Prozedur möchte ich von mehreren Units aus zugreifen:
Delphi-Quellcode:
procedure Pfad;
var Zieldatei: string;
begin
if Form1.OpenPictureDialog1.Execute then
begin
ZielDatei:= Form1.OpenPictureDialog1.FileName;
Form1.Image2.Picture.LoadFromFile(Zieldatei);
Form1.image2.Stretch:= true;
Form1.image2.proportional:=true;
Form1.image2.show;
Form3:= TForm3.Create(Application);
Form3.Show;
Form3.Label17.Caption:= Zieldatei;
end;
end;
Unit1 nutzt z.B. die units2 und 3. In Unit1 befindet sich auch Form1.Wenn ich also die Prozedur noch bei Unit1 reinpacke habe ich ja noch kein Problem, wenn ich über einen Button in Form1 auf die Prozedur zugreifen will, aber ich will auch über einen Button in Form3, die sich in Unit3 befindet darauf zugreifen. Unit3, kennt aber natürlich nun nicht sowas wie FORM1.image usw..
Dazu müsste ich ja in der uses-Klausel von Unit3 wieder Unit1 angeben, was ja wiederum zu einer zirkulären
Unit-Referenz führt
.
Wie kann ich dieses Problem aber nun lösen?
Ich hoffe ihr könnt mir helfen.
Vielen Dank schonmal im Voraus für eure schlauen Antworten
lg, Giertier
