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.
0
0
gdy sie klika na play
Jakie 'play'?!
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;
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