为什么我给mylabel=class(Tlabel)的mouseenter指定的事件在设计期就执行?(20分)

  • 主题发起人 主题发起人 vagabond
  • 开始时间 开始时间
V

vagabond

Unregistered / Unconfirmed
GUEST, unregistred user!
百思不得其解,望高手指点
 
在constrcutor里有这么一句
onmouseenter:=doonmouseenter;
其中doonmouseenter中是我写的语句,运行时也能完成工作,可是它在事件期也运行,为什么?
 
是我想错了,是这样的,在constrcutor里有这么一句:
cursor:=crhandpoint,结果在设计期鼠标一指上去它就变兰了?怪不,能解决吗?
 
用ComponentState判断一下,
如果在设计期间就不改变Cursor
 
if not (csDesigning in ComponentState) then
Cursor := crhandpoint;
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部