FireMonkey 做界面的一个小技巧

最新推荐文章于 2025-10-27 14:42:20 发布

原创

最新推荐文章于 2025-10-27 14:42:20 发布 · 781 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #FireMonkey #界面设计

本文介绍了如何使用FireMonkey框架来仿制Windows 10的便签应用界面，实现每条便签黄色背景、黑色字体，并在鼠标悬停时颜色加深的效果。通过创建多个Frame实例并设置Align属性，以及利用Rectangle覆盖Memo来控制颜色变化。同时，设置Memo为只读和不可点击，以防止内容被修改。当需要编辑内容时，可以弹出一个编辑框覆盖原有界面。文章提供了一种动态响应鼠标输入的小技巧，即通过调整Rectangle的透明度和可见性来实现颜色动态变化。

Win10 有个自带的软件：便签。

试着 FireMonkey 框架仿造它的界面。

界面目标

1. 每条便签显示为黄色背景，黑色字体；

2. 鼠标指过去，这个黄色的便签会颜色加重，鼠标离开颜色还原，有动态的效果。

实现方法小技巧

1. 用一个 Frame，里面放一个 Memo 用来做便签；界面上显示的多条便签，就创建多个 Frame 实例，并且设置它的 Align := Top 来实现多条一律从上往下排。

2. Memo 的背景色：请参考本博客前两天的一篇文章。

3. 鼠标指过去就变色：

3.1. 对于这个便签 Frame，最底层是一个托盘容器 Layout1；Memo1 放到它的上面。也就是：

Memo1.Parent := Layout1;
Memo1.Align := TAlignLayout.Client;

3.2. 拖一个 Rectangle1 过来放上面，罩在这个 Memo1 的上面，用来变色。注意它的摆放方式的代码：

Rectangle1.parent := Layout1;
Rectangle1.Align := TAlignLayout.Content; //这个值在 FireMonkey 里面有，VCL 里面没有。

3.3. 设置这个 Rectangle1 的透明度为 0.3 （ 1 为彻底不透明；0 为彻底透明）

3.4. 要设置所有摆放在 Layout1 上面的东西的 HitTest 为 False，包括上述 Memo1 和 Rectangle1;

3.5. 在 Layout1 的 OnMouseEnter 和 OnMouseLeave 里面写代码：

procedure TFrameMyNote.Layout1MouseEnter(Sender: TOb

最低0.47元/天解锁文章