"Delphi"-Exceptions verhindern

[Christian Seehase]

Moin DelphiUser,

ausserdem könnte man auch einfach das OnCanClose Ereignis des Dialoges benutzen:

Delphi-Quellcode:

procedure TForm1.OpenDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
  try
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
  except
    MediaPlayer1.FileName := '';
    ShowMessage('KEINE GÜLTIGE DATEI');
    CanClose := false;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then exit;
end;