H
hzjzxp
Unregistered / Unconfirmed
GUEST, unregistred user!
type
TImageEx = class(TImage)
protected
procedure WMMouseEnter( var Msg : TWMMouse );
message CM_MOUSEENTER;
procedure WMMouseLeave( var Msg : TWMMouse );
message CM_MOUSELEAVE;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Hao', [TimageEx]);
end;
{ TImageEx }
procedure TImageEx.WMMouseEnter(var Msg: TWMMouse);
begin
{Do Sub}
showmessage('Enter');
end;
procedure TImageEx.WMMouseLeave(var Msg: TWMMouse);
begin
{Do Sub}
showmessage('Out');
end;
为什么D5在设计控件时对CW_MouseEnter和CM_MOUSELEAVE 都没做处理
而D7里面在设计期间只对CW_MouseEnter进行了处理(鼠标经过的话,会弹出消息)而对CM_MOUSELEAVE也没处理(鼠标离开时没有弹出消息)
在D2007上面对CW_MouseEnter和CM_MOUSELEAVE 又没做处理
真搞不明白到底是什么意思,望高手解答一下。
TImageEx = class(TImage)
protected
procedure WMMouseEnter( var Msg : TWMMouse );
message CM_MOUSEENTER;
procedure WMMouseLeave( var Msg : TWMMouse );
message CM_MOUSELEAVE;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Hao', [TimageEx]);
end;
{ TImageEx }
procedure TImageEx.WMMouseEnter(var Msg: TWMMouse);
begin
{Do Sub}
showmessage('Enter');
end;
procedure TImageEx.WMMouseLeave(var Msg: TWMMouse);
begin
{Do Sub}
showmessage('Out');
end;
为什么D5在设计控件时对CW_MouseEnter和CM_MOUSELEAVE 都没做处理
而D7里面在设计期间只对CW_MouseEnter进行了处理(鼠标经过的话,会弹出消息)而对CM_MOUSELEAVE也没处理(鼠标离开时没有弹出消息)
在D2007上面对CW_MouseEnter和CM_MOUSELEAVE 又没做处理
真搞不明白到底是什么意思,望高手解答一下。