Label 控件如何获得 ONMOUSEMOVE，ONCLICK EVENT？(50分)

F

fireboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #1

我写了一个类，继承了TLABEL，我希望自动生成的实例能接受ONMOUSEMOVE ，ONCLICK ，代码如下：
onmousemove:=labelmove
OnClick:=labelclick
系统报错，说类型不符。急请相助！多谢！多谢！

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #2

你这中写法一般使用对象聚合时使用，如果是继承，使用消息把

procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;

 

F

fireboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #3

ONMOUSEMOVE 以后属性已改变，如何自动改回来。

 

L

liuchuanbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #4

可能：
proc buttondown;
if sender is ttable then
...

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #5

什么意识？？？

 

F

fireboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #6

首先，非常感谢沈前卫，问题已经得到解决。
〉》ONMOUSEMOVE 以后属性已改变，如何自动改回来
我在此事件中改变了颜色等属性。但是当鼠标离开LABEL时，我希望
属性能恢复原状。敢请问如何做。

 

F

fireboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #7

先就此谢了！