| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/12/22 12:54:36 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 有没有鼠标移到控件或移出控件的事件？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/22 12:58:30 | ||||
| 1楼： | OnMouseMove OnMouseLeave ---------------------------------------------- 米软科技有限公司  http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/22 13:18:59 | ||||
| 2楼： | OnMouseMove ---------------------------------------------- ~~~~~我爱delphi就像爱我的她~~~~~ |
|||||
| 作者： |
|
2003/12/22 13:30:38 | ||||
| 3楼： | 我想zxdcj是想用MouseEnter和MouseExit事件,多数控件没有公开这个事件,你自己参考lable控件的代码,重载一下就得了！如果不行，到时给段代码给你！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/22 13:32:06 | ||||
| 4楼： | 偶也要 大哥！谢谢！ ----------------------------------------------  
|
|||||
| 作者： |
|
2003/12/22 13:49:40 | ||||
| 5楼： | unit MyButton; interface uses SysUtils, Classes, Controls, StdCtrls; type TMouseEnterEvent = TNotifyEvent; TMouseLeaveEvent = TNotifyEvent; TMyButton = class(TButton) private { Private declarations } FOnMouseEnter: TMouseEnterEvent; FOnMouseLeave: TMouseLeaveEvent; procedure CM_MouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CM_MouseLeave(var Message: TMessage); message CM_MOUSELEAVE; protected { Protected declarations } public { Public declarations } published { Published declarations } property OnMouseEnter: TMouseEnterEvent read FOnMouseEnter write FOnMouseEnter; property OnMouseLeave: TMouseLeaveEvent read FOnMouseLeave write FOnMouseLeave; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TMyButton]); end; { TMyButton } procedure TMyButton.CM_MouseEnter(var Message: TMessage); begin if Assigned(FOnMouseEnter) then FOnMouseEnter(Self); end; procedure TMyButton.CM_MouseLeave(var Message: TMessage); begin if Assigned(FOnMouseLeave) then FOnMouseLeave(Self); end; end. ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/22 17:45:31 | ||||
| 6楼： | 谢谢大家了,由于机子出了问题,刚刚搞定----重装一遍XP，所以没来向大家学习、向大家道谢，大家出的主意我再研究研究，如有问题还要烦大家的，希望大家过会再来看看兄弟。机子问题是解决了，但是我真的不明白这是怎么回事，为了下次不重装，为了多懂些东西，现拿来与大家交流交流。http://bbs.2ccc.com/topic.asp?topicid=46603 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/22 17:54:27 | ||||
| 7楼： | 查查是不是中了冲击波 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/22 18:03:29 | ||||
| 7楼： | 大家好，我的问题的确是sgxgb兄所说的，sephil兄给出的代码好像也是这个意思吧？可是我看不懂啊，sephil兄你给的这个是不是一个控件啊？不要笑小弟，我是刚学的啊，烦sephil兄再给注解一下吧，谢谢！！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/22 18:10:14 | ||||
| 8楼： | 冲击波？是不是类似W32/Nachi.A这样的，之前是有的，还有VBS结尾的不知是不是这些啊？不过我用熊猫已经把它给拿下了啊，我也查过，没查到什么，是不是已经被破坏了？发生了这种情况该咋办啊，我可真怕了，它是想关机就关机啊，而且这个关机进程杀不死啊？太可怕了！！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/22 18:20:37 | ||||
| 9楼： | 我的代码其实是一个继承自TButton的自定义控件 只是为了演示怎样扩展MouseEnter/MouseLeave事件 也就是鼠标移进/移出事件 你新建个文本文件，把上面的代码贴进取，然后保存为MyButton.pas就可以安装了 很简单的代码，再看不懂我也没法解释了。。。 冲击波的症状就和你描述的一样 这个病毒设计有缺陷，会导致系统重启 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/22 18:23:39 | ||||
| 10楼： | 谢了，sephil兄，再见！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/22 18:52:24 | ||||
| 11楼： | sephil兄，你的控件真灵，谢了！！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/22 20:06:15 | ||||
| 12楼： |  ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 信息 |
| 登陆以后才能回复 |
