Delphi-Quellcode:
procedure TNeues.OffnenClose(Sender: TObject);
begin
if Offnen.Execute then
begin
Bild.Picture.LoadFromFile(Offnen.FileName);
Kate.Text := Offnen.FileName;
end;
end;
[edit] Ach, das Execute stand ja doch da, trotzdem würde ich es an die Stelle setzen, an der ich die Rückgabe auswerten möchte, sonst bräuchte ich ein globales Flag zum Prüfen, ob der Dialog überhaupt ausgeführt wurde. [/edit]