社区
Delphi
帖子详情
HELP~~~~~~~~~~~~关于鼠标移动!
hahah
2000-02-20 03:40:00
让鼠标移动到组件上时组件的文字变色,离开这个组件时
就变回原来的颜色。
我用ONMOUSEMOVE时,要把其它所有组件的都要写一段代
码,太繁了,
请问有什么方法可以用很少的代码就能达到?
...全文
269
11
打赏
收藏
HELP~~~~~~~~~~~~关于鼠标移动!
让鼠标移动到组件上时组件的文字变色,离开这个组件时 就变回原来的颜色。 我用ONMOUSEMOVE时,要把其它所有组件的都要写一段代 码,太繁了, 请问有什么方法可以用很少的代码就能达到?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sess
2000-02-23
打赏
举报
回复
捕捉窗口(application.message)的WM_MOUSEHOVER和WM_MOUSELEAVE两条消息,然后用is 判断
Lin
2000-02-22
打赏
举报
回复
1、自己写一个组件,不过我有现成的;
2、WM_MOUSEHOVER和WM_MOUSELEAVE两条消息用过没有?希望对你有所帮助。
huiwsey
2000-02-21
打赏
举报
回复
我平时用的一个笨办法,先给一个组件写好处理程序,
IF SENDER IS TButton then
With (Sender As TButton ) do
begin
font.color:=/////
end;
然后其他需要的组件把OnMouseMove指定为这个过程就行了。
yijun2000
2000-02-21
打赏
举报
回复
fancy的方法比较好,而且简单。这就是vb中控件数组的扩展。多掌握这样的概念,在很多地方都用得到,甚至不一定是控见的问题。
Fancy
2000-02-21
打赏
举报
回复
將其他控件的ONMOUSEMOVE都對應在同一個PROCEDURE中
然後用IS來判斷SENDER是何控件, 完了用AS進行轉換后再對其FONT.COLOR進行賦值
渤海海峡
2000-02-20
打赏
举报
回复
简单的例子:
从Tlabel继承,加一个focuscolor属性。
用了鼠标进入和离开两个消息。
unit HxLabel;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
THxLabel = class(TLabel)
private
FFcolor:Tcolor;
FoldColor:Tcolor;
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure CMMSENTER(var Msg: TMessage);message CM_MOUSEENTER;
procedure CMMSLEAVE(var Msg: TMessage);message CM_MOUSELEAVE;
published
property FocusColor:Tcolor read FFcolor write FFcolor;
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Hxsoft', [THxLabel]);
end;
procedure THxlabel.CMMSENTER(var Msg: TMessage);
begin
//鼠标进入
Foldcolor:=self.font.Color;
self.Font.Color:= FFcolor;
end;
procedure THxlabel.CMMSLEAVE(var Msg: TMessage);
begin
//鼠标离开
self.font.Color:=Foldcolor;
end;
end.
hahah
2000-02-20
打赏
举报
回复
我要DELPHI的代码,QIUJOE可以吗?
qiujoe
2000-02-20
打赏
举报
回复
扩展你的TControl类让所有组件继承于你的扩展类就可以了
如果需要的话可以给你一段VC的例子
土豆
2000-02-20
打赏
举报
回复
1。鼠标进入可由MOUSMOVE得到
2. 鼠标离开没有消息,但父窗口会得到消息,可在父窗口的MOUSEMOVE消息处理中处理;另外,也可以做一个定时器,在鼠标移入控件时启动定时器,每个一段较短的时间就检查鼠标是否在控件上,如果没有则说明鼠标移出了
kxy
2000-02-20
打赏
举报
回复
好像没有简单的方法,
把要用到的控件都自己继承一个:)
gypb
2000-02-20
打赏
举报
回复
利用IS 操作副可轻松搞定。
IF SENDER IS TButton then
With (Sender As TButton ) do
begin
{do somthing};
end;
远控软件Radmin
鼠标
和键盘的
移动
)都使用128位强加密算法加密; 服务器端 会将所有操作写进日志文件,以便于事后查询,服务器端有 IP过滤表,对IP过滤表以外的控制请求将不予响应。 4.Radmin 目前支持TCP/IP协议,应用十分广泛...
MAPGIS助手V1.2 & V1.3,
鼠标
滚轮缩放、中键平移
鼠标
中键: 手形
移动
窗口 在绘图窗口敲 [Space]空格键 或者 双击[
鼠标
右键](1.3版本)打开快捷功能菜单 ---------以下的功能要在画线或弧段时才有效(以下实际上是MAPGIS本身的功能)--------- 按住[
鼠标
右键]单击...
js 限制
鼠标
移动
范围
js 限制
鼠标
移动
范围(js隐藏
鼠标
) js
鼠标
禁用功能 js 拖拽
Python
移动
鼠标
pyautogui
exit() # 控制
鼠标
移动
,duration为持续时间 for i in range(2): pyautogui.moveTo(100, 100, duration=0.25) #
移动
到 (100,100) pyautogui.moveTo(100, 1000, duration=0.25) pyautogui.moveTo(1000, 1000, ...
python 将
鼠标
移动
到指定位置_可以释放你双手的Python库
PyAutoGUI库你想彻底释放双手,让电脑帮你完成
鼠标
操作和键盘操作?让电脑帮你完成GUI的自动任务?那本文就是为你量身打造的,实现办公自动化的Python程序库。本文中所有代码全部经过验证,使用的开发环境是Python ...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章