Hallo,
das kann so auch nicht funktionieren. Ich nehm mal an AFileName ist ein Feld des Formulars.
Du hast nach dem Execute den OpenPictureDialog1.FileName wieder auf '' gesetzt und außerdem in AFileName nur das Verzeichnis der Datei gespeichert.
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
OpenPictureDialog1.FileName:='';
OpenPictureDialog1.Title:='Hallo';
OpenPictureDialog1.InitialDir:=ExtractFileDir(OpenPictureDialog1.FileName);
if openPictureDialog1.Execute then
AFileName := openPictureDialog1.Execute
else
AFileName := '';
showmessage(AFilename); //zur kontrolle des dateinamens (liefert derzeit '')
end;
Ciao Chris