Bild von festplatte in ein Projekt einbinde

[Skrenkovic]

tut mir leid für meine Unwissenheit aber ....

Code:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute
         then
          begin
           Image1.picture.LoadFromFile(OpenPictureDialog1.filename);
           edit4.Caption:=;
          end;
end;

hab ich nun (funktioniert auch)
wie kann ich jetzt den Pfad herausfinden und den in Edit4 einschreiben?
Bzw wie kann ich das dann denn weiterverwenden? bracuhe das ja dann in Form3 nochmal .... in dieser Form suche ich es ja nur aus

[DeddyH]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  Pfad: string;
begin
  if OpenPictureDialog1.Execute
         then
          begin
           Pfad := OpenPictureDialog1.filename;
           Image1.picture.LoadFromFile(Pfad);
           edit4.Caption:=Pfad;
          end;
end;

[p80286]

Delphi-Quellcode:

          begin
           Image1.picture.LoadFromFile(OpenPictureDialog1.filename);
           edit4.Caption:=ExtractFileDir(OpenPictureDialog1.filename);

Gruß
K-H