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