Öffnen-Fenster

[EDatabaseError]

Zitat von Cöster:

Also ich kann den OpenDialog jetzt öffnen, aber wenn ich in diesem Dialog dann auf "Öffnen" oder "Abbrechen" klicke, passiert nichts. Der Dialog bleibt geöffnet. Erst wenn ich ca. 20 mal auf "Öffnen" bzw. "Abbrechen" geklickt hab, schließt der Dialog auch wirklich.

Hier sind die beiden Procedures:

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  OpenPictureDialog1.Execute;
end;
{...}
procedure TForm1.OpenPictureDialog1Close(Sender: TObject);
begin
  If OpenPictureDialog1.Execute then
    ImMain.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

Was hab ich noch falsch gemacht?

les dir mal alles nochmals genau durch...

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  If OpenPictureDialog1.Execute then
    ImMain.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;