鼠标悬停(类似于提示)delphi
发布时间:2020-12-15 09:15:26 所属栏目:大数据 来源:网络整理
导读:如果鼠标悬停在编辑框上方,是否有任何事件可以确定?基本上,我想为用户显示提示/帮助,但我想显示图像和简单的说明.什么是最好的方法? 谢谢你的帮助 解决方法 使用 OnMouseEnter 和 OnMouseLeave 事件.在事件处理程序中,您可以使用提示文本设置Label或simlia
如果鼠标悬停在编辑框上方,是否有任何事件可以确定?基本上,我想为用户显示提示/帮助,但我想显示图像和简单的说明.什么是最好的方法?
谢谢你的帮助 解决方法
使用
OnMouseEnter 和
OnMouseLeave 事件.在事件处理程序中,您可以使用提示文本设置Label或simliar控件的可见性.在这个例子中,我采用了一个空的VCL表单并插入了一个
TEdit 和一个
TLabel .我实现了OnMouseMEnter和OnMouseLeave事件:
TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; procedure Edit1MouseEnter(Sender: TObject); procedure Edit1MouseLeave(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1MouseEnter(Sender: TObject); begin Label1.Visible:=True; end; procedure TForm1.Edit1MouseLeave(Sender: TObject); begin Label1.Visible:=False; end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |