用闪烁的“方框”去定位待编辑的Edit

最新推荐文章于 2021-10-30 23:08:24 发布

-HelloWorld-

最新推荐文章于 2021-10-30 23:08:24 发布

阅读量367

点赞数 1

分类专栏： Delphi

本文链接：https://blog.csdn.net/Saivy/article/details/8287779

版权

在用户界面设计中，为引导用户注意需要修正的数据，可以通过为错误的Edit框添加闪烁的边框来提高可见性。本文介绍了如何通过在Edit框周围绘制不同颜色的矩形，模拟闪烁效果，以实现这一目的。提供的代码示例展示了如何实现这一功能，不仅限于矩形，还可以进一步扩展到其他形状，以创建更吸引人的视觉效果。

摘要由CSDN通过智能技术生成

在编写用户录入数据的窗体时，经常要进行数据校验，提示用户哪些数据不合法，哪些需要修改；showmessage后，在定位第一个需要修改的Edit时，如果觉得单单一个Edit.SetFocus还不够明显的话，可以考虑给这个Edit加个闪烁的外框，让用户一眼就知道要改的Edit在哪里。先看效果图：

实现的原理很简单：就是画线！先用其他颜色画个矩形，然后再用背景色按原路径画一遍矩形……这样多画几遍就出现上图的”闪烁”效果了。上面只是用个简单的矩形去举个例子，有兴趣的完全可以考虑画个椭圆或其他异形图形，做出更”炫”的效果。好了，废话少说，直接看代码吧：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Panel1: TPanel;
    PageControl1: TPageControl;
    Edit2: TEdit;
    TabSheet1: TTabSheet;
    Edit3: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: T