请问MouseEnter方法如何使用。(100分)

H

huajian5410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #1

各位大侠，有这样一个问题：
窗体上有一个Label1,他用来动态地显示文件的路径，但Label1的长度是一定的。
碰到很长的路径时就不能完全显示出来，我想在鼠标移动到label1上时作一个判断，
看label中字符串的长度是否已经超过了label的长度，如果超过，则label的showhint
为true,用hint将他完全显示出来，但如何判断鼠标是否移近label1了呢，是否用
mouseenter方法？这个方法如何重载？请高手指点。

 

千

千年冰虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #2

不。应该使用 OnMouseOver 事件。
是当鼠标移动到其上时触发。

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #3

private
procedure mouseenter(var msg:Tmessage);message cm_mouseenter;

procedure Tform1.mouseenter(var msg:Tmessage);
begin
//do something
end;

 

H

huajian5410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #4

TLabel没有OnMouseOver事件呀！

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #5

应该从TLABEL类继承一个新的label组件
在组件单元中按照我的写法发送cm_mouseenter消息

 

H

huajian5410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #6

不继承不行吗?
而且将这个方法加入到tform1的private中时，出现了这样的消息
[Error] UnitOpenData.pas(24):
Unsatisfied forward or external declaration: 'TOpenData.MouseEnter'
UnitOpenData市窗体的名字。请问如何解决？

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #7

如果直接写在窗体中时那鼠标在移到窗体上时即发生了窗体的mouseenter事件

在声明处用ctrl+shift+c 自动生成过程体看看是不是你的过程体处有问题

 

H

huajian5410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #8

请问52free有qq吗？
2955095

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #9

16985348
不聊天