exe-Datei auf unterschiedlichen Computern

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Bildladen1Click(Sender: TObject);
begin
 Bild:=Rechts.PopupComponent as TImage;         //wo das Popup-Menü aufgerufen wurde
 Oeffnen.Execute;       //OpenPictureDialog
end;

Delphi-Quellcode:

procedure TForm1.Bildladen1Click(Sender: TObject);
begin
 Bild:=Rechts.PopupComponent as TImage;         //wo das Popup-Menü aufgerufen wurde
 if Oeffnen.Execute then       //OpenPictureDialog
   begin
     Bild.Picture.LoadFromFile(Oeffnen.FileName);           
   end;
end;

Denn wenn der Dialog wieder geschlossen ist, ist es nicht sicher, dass
Oeffnen.FileName noch richtig ist.

Grüße
Klaus