Текущий архив: 2005.12.11;
Скачать: CL | DM;
Вниз
Проблема с MediaPlayer Найти похожие ветки
← →
Volfram (2005-11-19 14:38) [0]Появилось 2 непонятных проблемки с этим компонентом
1) Хочу сделать, чтобы по нажатию любой клавиши проигрыш прекращался и запускался другой файл.procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if MediaPlayer.FileName="IntroMovie.wmv"
then begin
MediaPlayer.Close;
MediaPlayer.FileName:="soundtrack.mp3";
MediaPlayer.Open;
MediaPlayer.Play;
MediaPlayer.Hide;
IntroPanel.Hide;
ChosePanel.Show;
MainMenu.Show;
end;
end;
Облом в том, что событие OnKeyDown не происходит. Возможно оно отлавливается другим компонентом, но кроме панелей и Медиа на форме ничего нет. В чем может быть проблема.
2) То же что и в предыдущем варианте, но замена файла происходит по завершению проигрывания предыдущего.procedure TMainForm.MediaPlayerNotify(Sender: TObject);
begin
with MediaPlayer do
begin
if (NotifyValue=nvSuccessful)
then begin
if FileName="IntroMovie.wmv"
then begin
Close;
FileName:="soundtrack.mp3";
Open;
Play;
Hide;
IntroPanel.Hide;
ChosePanel.Show;
MainMenu.Show;
end;
end;
Notify:=True;
end;
end;
По завершении проигрывания и вызове OnNotify значение NotifyValue почему-то не становится равным nvSuccessful.
← →
Volfram (2005-11-19 19:49) [1]Нда... Тема потихоньку сползает вниз... неужели такой сложный вопрос?
← →
Volfram (2005-11-19 20:55) [2]сорри, 2 вопрос отпадает - прояснил все сам. По прежнему нуждаюсь в помощи по первому.
← →
Volfram (2005-11-20 16:00) [3]Ну посоветуйте хоть что-нибудь! Скажите хотя-бы - я правильно предполагаю, что событие отлавливается другим компонентом? Но ведь у панелей и плеера нету такого события. А больше ничего в голову не приходит. :(
← →
Virgo_Style © (2005-11-20 16:17) [4]
TForm.KeyPreview:=true;
← →
Volfram (2005-11-20 17:29) [5]Спасибо! А если, не сложно, можно описать, что это свойство делает (хотелось бы, знать как работает своя прога :) )
← →
Virgo_Style © (2005-11-20 17:35) [6]Volfram (20.11.05 17:29) [5]
Насколько мне известно, здесь не очень хорошо относятся к копированию справки в форум. Так что - сложно. Во всяком случае, сложнее, чем F1 ;-)
← →
Volfram (2005-11-20 20:34) [7]а. да не догнал. вопрос исчерпан
Страницы: 1 вся ветка
Текущий архив: 2005.12.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.059 c
