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?