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

       在编写用户录入数据的窗体时，经常要进行数据校验，提示用户哪些数据不合法，哪些需要修改；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