Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: "Delphi"-Exceptions verhindern

    Delphi
    by Wormid, 23. Okt 2003
  So wird der Opendialog so lange angezeigt, bis eine gültige Datei ausgewählt wurde, oder der Anwender auf abbrechen geklickt hat.
  Ne elegantere Lösung ist mir auf die schnelle nicht eingefallen.
  
  procedure TForm1.Button1Click(Sender: TObject);
  var UserCanceled: Boolean;
  begin
  MediaPlayer1.Filename := '';
  repeat
  UserCanceled := not OpenDialog1.Execute;
  if not UserCanceled then
• Forum: Sonstige Fragen zu Delphi

  Re: "Delphi"-Exceptions verhindern

    Delphi
    by Wormid, 22. Okt 2003
  procedure TForm1.HandleMCIDeviceError;
  begin
  ShowMessage('Mist!');
  Form1.MediaPlayer1.Close;
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  try
  MediaPlayer1.Open;