关于鼠标按下的消息~~~~ ( 积分: 100 )

K

k4-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-22

• #1

有一个自定义控件，继承自Timage，在其中要用什么方法才能使其在按下时播放音效。。。并且不影响它的OnClick 事件啊 。。。。
我用procedure WMOnMouseClick(Message:TMessage);Message WM_LBUTTONDOWN;
procedure WMOnMouseClick (Message:TMessage):Message WM_LBUTTONDOWN;
begin
PlaySound();
end;
的话。。。就截取了MOUSEDOWN消息。。导致其OnClick 事件失效了。。。。谁能告诉我怎么办

 

K

k4-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-22

• #2

有一个自定义控件，继承自Timage，在其中要用什么方法才能使其在按下时播放音效。。。并且不影响它的OnClick 事件啊 。。。。
我用procedure WMOnMouseClick(Message:TMessage);Message WM_LBUTTONDOWN;
procedure WMOnMouseClick (Message:TMessage):Message WM_LBUTTONDOWN;
begin
PlaySound();
end;
的话。。。就截取了MOUSEDOWN消息。。导致其OnClick 事件失效了。。。。谁能告诉我怎么办

 

D

dbyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-22

• #3

PlaySound();
inherited;

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-22

• #4

procedure WMOnMouseClick (Message:TMessage):Message WM_LBUTTONDOWN;
begin
PlaySound();
inherited；
end;

 

G

greenedman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-22

• #5

楼上的都对。

 

F

feitianbianfu16

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-22

• #6

你要继承呀,如果不继承的话,他只是播放音乐,就不响应Onclick事件了!

 

L

lichengbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-22

• #7

重载MouseDown动态方法
procedure TXXX.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
PlaySound;
end;

 

K

k4-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #8

散分了.........自己解决了..................Thanx everybody to help me~

 

K

k4-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-28

• #9

多人接受答案了。