如何禁止及自定义realaudio控件的右键菜单？(200分)

B

bax

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-26

• #1

标题已提出问题。
我试了多次都没有办法。不象mediaplayer控件可设enablecontextmenu为false。
realaudio也有setenablecontextmenu，但是没有用。
请高手指点。若能顺便谈谈谈realaudio的其它设置更好了[8D]

 

任

任豆豆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-26

• #2

procedure TForm1.realaudioMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
ClickPoint :TPoint;
begin

if Button = mbRight then

begin

GetCursorPos(ClickPoint);
Popmenu.popup(ClickPoint.x,ClickPoint.y);
....
end;

end;

 

B

bax

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-26

• #3

这肯定是行不通的，关键是realaudio空件根本就不把mouse事件传给程序。
对比看mediaplayer则有sendmouseupevent等设置。？？？

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-26

• #4

为什么都不愿意先查一查？看这里：
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1860539

 

B

bax

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-09

• #5

对不起，最近没上网。
总觉得没这么简单，flash与real是不同的，不要以为都是activex就都一样。
flash它是可以自定义右键，但没这个接口，自定义就行了。
而real是根本没有发送mouse消息，如何还能自定义WM_LBUTTONDOWN等消息。
当然这可能是我愚见。
你可以尝试在设计期拖动real控件，或者选中它，你会发现根本补可能。
我其实曾经能试出自定义右键，但在点击数下后又变为real自身菜单。
不管怎么样，请先自己试出来再告诉我，不要听人说能行就行。