MediaPlayer1按钮问题?? (100分)

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #1

我编了一个小程序,用下面代码让软件自动播放mp3歌曲,但有一个怪现象,就是按钮和操作不同步(就是多媒体播放歌曲时,应该'play'按钮变灰,暂停和停止两个按钮变亮,但实际上只有'play'按钮一直亮着,除非手操作才正常),请指点和关联问题,还是控件自身问题?
MediaPlayer1.AutoOpen:=True
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Notify:=True

 

P

plzw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #2

你试试把MediaPlayer1的AutoEnabled属性设置为true;
或在Code里加上: MediaPlayer1.AutoEnabled := true;

 

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #3

试了,属性直接设置和Code里加上: MediaPlayer1.AutoEnabled := true;都试了,问题依旧!

 

B

bxqxb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #4

那就手工添加代码吧！我以前作FLASH播放器时的按钮就都是自己画的，自己编写代码进行控制，很简单

 

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #5

我不想增加代码长度!最好还是用MediaPlayer

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #6

你还是用mediaplayer,用自己的按钮，不要的按钮省了

 

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-06

• #7

to lvxq:
你把我的问题忘了!

 

春

春意

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-07

• #8

自己写代码控制按钮！举个简单例子：
procedure TForm1.MediaPlayer1Click(Sender: TObject;
Button: TMPBtnType;
vardo
Default: Boolean);
begin

case Button of
btPlay ://对播放按钮控制
begin

MediaPlayer1.EnabledButtons := [btplay];
end;

//其它按钮省略
end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin

//打开音乐，但不自动播放，单击mediaplayer1中的播放按钮，则会自动播放
mediaplayer1.FileName := 'D:/Downloads/music/ll_girl.mp3';
MediaPlayer1.Open;
end;

 

W

ww1234ww

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-08

• #9

gz

 

Q

qingrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-14

• #10

给你发个例子,供参考!

 

R

ranxg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-14

• #11

多人接受答案了。