Wyłączenie wyświetlania błędu "No Mci Device Open"

Odpowiedz Nowy wątek
2011-08-30 12:26
DVIX
0

Witam chcialbym was zapytac jak mozna wylaczyc wyswietlanie sie bledu no mci device open gdy sie klika na play , gdy nie ma zaladowanego pliku muzyki.
bo nie mam pojecia.

Pozostało 580 znaków

2011-08-30 12:34
0

gdy sie klika na play

Jakie 'play'?!


Pozostało 580 znaków

2011-08-30 13:09
0

Nie wiem dokładnie po co chcesz się pozbywać tego komunikatu zamiast mu zapobiegać ale niech będzie coś takiego:

procedure TForm1.AppExcept(Sender: TObject; E: Exception);
begin
  if not(E is EMCIDeviceError) then //wyswietlamy komunikaty wszyskich bledow oprocz EMCIDeviceError
    Application.MessageBox(PAnsiChar(E.Message),
    PAnsiChar(Application.Title), MB_ICONERROR);
  if (E is EAccessViolation)then //gdy EAccessViolation zakoncz program
    Halt;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException:= AppExcept;
end;

Nie odpowiadam na PW w sprawie pomocy programistycznej.
Pytania zadawaj na forum, bo:
od tego ono jest ;) | celowo nie zawracasz gitary | przeczyta to więcej osób a więc większe szanse że ktoś pomoże.
Tylko czemu nie zwykły blok try...except? - payl 2011-08-30 14:42
Abyś miał się do czego doczepić ale spoko jak dasz radę obsłużyć ten błąd inaczej to się wykaż a nie pytaj czemu. Nie jestem specjalistą od komponentu MediaPlayer ale wg. mnie inaczej się nie da, bo niby gdzie chciałbyś wstawić to try except? (a zakładam że autor pytania korzysta z tego właśnie komponentu). - kAzek 2011-08-30 15:02

Pozostało 580 znaków

2016-01-12 10:04
Bro87
0

Wyświetlaniu komunikatu " No Mci Device Open" można zapobiec ustawiając parametr funkcji OnClick - DoDefault := False w przypadku jeśli wystąpi w niej wyjątek.
Pozdrawiam

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0