H
henson_lee
Unregistered / Unconfirmed
GUEST, unregistred user!
本人正在写如下程序，
（CMMouseEnter为自定义的一个过程）
procedure TSomeForm.CMMouseEnter(var Msg: TMessage);
var
anObject : TObject;
begin
{ anObject is the control over which the mouse is right now }
anObject := TObject(Msg.lParam);
{ First, you must find WHICH is the control under the mouse cursor, }
//请问高手：
//如，我想判断 mouseEnter 事件 是否由 Image1 (一个图片控件) 发出 ?
//即，想判断 anObject 变量 是否就是 Image1？ 怎么写？
{ then, determine what action to do, etc... }
end;
本人是新手，望高人指点！谢谢
（CMMouseEnter为自定义的一个过程）
procedure TSomeForm.CMMouseEnter(var Msg: TMessage);
var
anObject : TObject;
begin
{ anObject is the control over which the mouse is right now }
anObject := TObject(Msg.lParam);
{ First, you must find WHICH is the control under the mouse cursor, }
//请问高手：
//如，我想判断 mouseEnter 事件 是否由 Image1 (一个图片控件) 发出 ?
//即，想判断 anObject 变量 是否就是 Image1？ 怎么写？
{ then, determine what action to do, etc... }
end;
本人是新手，望高人指点！谢谢