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