做个基类使用，主要功能是子类的用户输入控件可以自动变色---Delphi

1. unit U_BaseForm;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls, Buttons, Typinfo;
10. type
11.   TFm_BaseForm = class(TForm)
12.     Edit1: TEdit;
13.     Edit2: TEdit;
14.     procedure FormCreate(Sender: TObject);
15.   private
16.     { Private declarations }
17.     procedure CmpEnter(Sender: TObject); //用户获得焦点
18.     procedure CmpExit(Sender: TObject); //用户失去焦点
20.   public
21.     { Public declarations }
22.   protected
23.     procedure pSetComponents;
24.   end;
26. var
27.   Fm_BaseForm: TFm_BaseForm;
28.   //以后应该是可以设置的。风格管理，可以保存在注册表中
29. const
30.   ENTERC0LOR = $00CDBDB4;
31.   EXITCOLOR = $00DAF3DD;
33. implementation
35. {$R *.dfm}
37. { TFm_BaseForm }
39. procedure TFm_BaseForm.CmpEnter(Sender: TObject);
40. var
41.   sProp: PPropInfo;
42. begin
43.   sProp := GetPropInfo(Sender.ClassInfo, 'Color');
44.   if sProp <> nil then
45.     SetOrdProp(Sender, sProp, ENTERC0LOR);
46. end;
48. procedure TFm_BaseForm.CmpExit(Sender: TObject);
49. var
50.   sProp: PPropInfo;
51. begin
52.   sProp := GetPropInfo(Sender.ClassInfo, 'Color');
53.   if sProp <> nil then
54.     SetOrdProp(Sender, sProp, EXITCOLOR);
55. end;
57. procedure TFm_BaseForm.pSetComponents;
58. var
59.   i: Integer;
60.   sColor, sEnter, sExit, sChanged: PPropInfo;
61.   vEnter, vExit: TMethod;
62.   mEvent: TNotifyEvent;
63. begin
64.   for i := 0 to componentcount - 1 do
65.   begin
66.     sColor := GetPropInfo(Components[i].ClassInfo, 'Color');
67.     sEnter := GetPropInfo(Components[i].ClassInfo, 'OnEnter');
68.     sExit := GetPropInfo(Components[i].ClassInfo, 'OnExit');
69.     sChanged := GetPropInfo(Components[i].ClassInfo, 'OnChange');
70.     if (sChanged <> nil) and (sEnter <> nil) and
71.       (sExit <> nil) and (sColor <> nil) then
72.     begin
73.       SetOrdProp(Components[i], sColor, EXITCOLOR);
74.       mEvent := CmpEnter;
75.       vEnter.Code := @mEvent;
76.       vEnter.Data := Self;
77.       SetMethodProp(Components[i], sEnter, vEnter);
78.       mEvent := CmpExit;
79.       vExit.Code := @mEvent;
80.       vExit.Data := Self;
81.       SetMethodProp(Components[i], sExit, vExit);
82.     end;
83.   end;
84. end;
86. procedure TFm_BaseForm.FormCreate(Sender: TObject);
87. begin
88.    pSetComponents;
89. end;
91. end.