Problem mit OpenPictureDialog

[Jack and the Juice]

Hallo,

ich habe ein Problem mit dem OpenPictureDialog. Ich benutze Windows 7 und Delphi 2010.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var open: TOpenPictureDialog;
begin
   try
     open := TOpenPictureDialog.Create(self);
     if open.Execute then
       pfad:=open.FileName;
       image11.picture.loadfromfile(pfad);
   finally
   open.Free;
   end;
end;

Wenn ich diese Prozedur in der Entwicklungsumgebung ausführe, bekommen ich bei Schließen der Anwendung die Windows-Fehlermeldung "Das Programm funktioniert nicht mehr...". Wird das kompilierte Programm jedoch als exe gestartet, so tritt dieses Problem nicht auf; die Anwendung schließt (scheinbar?) problemlos.

Bin mittlerweile ein wenig ratlos und nicht sicher, ob das Problem irgendwo in meinem Code liegt oder woanders...

Vielen Dank schonmal,

jackandthejuice

[DeddyH]

Oha, da ist aber Einiges im Argen. Wie ist es so?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var open: TOpenPictureDialog;
begin
  open := TOpenPictureDialog.Create(nil);
  try     
    if open.Execute then
      begin
        pfad:=open.FileName;
        image11.picture.loadfromfile(pfad);
      end;
  finally
    open.Free;
  end;
end;

[Jack and the Juice]

Das ändert leider auch nichts. Immer noch die gleiche Fehlermeldung (in der Entwicklungsumgebung).
Ich habe ebenfalls versucht, OpenPictureDialog nicht zur Laufzeit zu erzeugen, sondern als Komponente auf das Formular zu setzen. Da trat der Fehler aber auch auf.

[Jack and the Juice]

Pfad ist als globale Variable vom Typ String definiert. Ich brauche den Dateinamen später noch, daher der Umweg über die Variable.

[Luckie]

Und wo wird dem Pfad die Datei zugewiesen?

[Jack and the Juice]

Das soll eigentlich geschehen, sobald der OpenPictureDialog geschlossen wird. Sprich: die Datei wird ausgewählt, bestätigt und OpenPictureDialog1.Filename wird der Variable "Pfad" zugewiesen.

[Deep-Sea]

So ein Problem habe ich auch manchmal ... aber gänzlich ohne PictureDialog.
Ich glaube es liegt an der Kombination "Delphi - Windows 7". Die mögen sich ab und an einfach mal nicht, wie's scheint.

[Memnarch]

WO ist Pfad definiert?
Warum übergibst du nicht direkt Open.FileName?

MFG
Memnarch