![mega_chok.gif](style_emoticons/default/mega_chok.gif)
![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
![]() ![]() |
![]() |
Артемий |
![]() ![]()
Сообщение
#1
|
Гость ![]() |
Можно ли заменить TMediaPlayer
![]() |
Noof |
![]()
Сообщение
#2
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 61 Пол: Мужской Репутация: ![]() ![]() ![]() |
Если мне не изменяет память то это активИкс и следовательно тебе нужно пахать над ней, хотя можно сделать это более легким путем, а именно нарисовать свои кнопочки и отсылать команды сабжу.
-------------------- ...
|
#$# PaVeL #$# |
![]() ![]()
Сообщение
#3
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 91 Пол: Мужской Реальное имя: Павел Репутация: ![]() ![]() ![]() |
Здрасте, приехали!
TMediaPlayer - это НЕ ActiveX component. А по поводу вида - есть два пути: 1.) Кидаешь на форму TMediaplayer, затем Копируешь MPlayer.pas и MPlayer.res в папку с проектом, добавляешь его к проекту, а в ресурсе (MPlayer.res) перерисовываешь кнопочки на такие, какие хочешь! 2.) Копируешь MPlayer.pas и MPlayer.res в папку с проектом, добавляешь его к проекту, избавляешься от интерфейсной части (делаешь родителя классом TComponent, удаляешь ВСЁ что связанно с его отображением), и в программе управляешь всеми его действиями с помощью контролов которые тебе по душе! |
Noof |
![]()
Сообщение
#4
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 61 Пол: Мужской Репутация: ![]() ![]() ![]() |
ну простите за ложную инфу. Собсо я им долго не возился =) нужен звук? или Видео?
-------------------- ...
|
xds |
![]()
Сообщение
#5
|
![]() N337 ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: ![]() ![]() ![]() |
Сделай TMediaPlayer невидимым (поставь Visible := False), нарисуй (добавь на форму) свои кнопки, в обработчиках событий OnClick кнопок вызывай методы TMediaPlayer (Play, Stop, etc...) Не забудь указать TMediaPlayer'у имя файла (свойство FileName) и AutoOpen := True (либо вызывай метод Open перед тем, как начать работу с выбранным файлом).
Сообщение отредактировано: xds - Прикрепленные файлы ![]() -------------------- The idiots are winning.
|
#$# PaVeL #$# |
![]() ![]()
Сообщение
#6
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 91 Пол: Мужской Реальное имя: Павел Репутация: ![]() ![]() ![]() |
По моему всёже лучше избавиться от интерфейса!..
Нашёл в своих исходниках - должно нечто вроде этого получиться! ![]() |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2024 14:50 |