自己写的一个超级烂的类！警戒自己以后不要再写出如此糟糕的类！

1. unit uTEditFill;
3. interface
5. uses Windows,SysUtils,Classes,Messages;
7. const MaxSize = 10000;
9. type
10.   TFormHandle = record
11.      Handle:THandle;
12.      Title:array [0..256]of Char;
13.      ClassName:array [0..256]of Char;
14.      end;
15.   TEditFill = class
16.     private
17.       FHandle:THandle;//目标窗口句柄
18.       FFormTitle:String;//目标窗口标题
19.       FData:TList;//写入Edit窗体内的数据
20.       FDestClassName:String;
21.       FCount:Integer;//计数器
22.       procedure SetFormTitle(const Value: string);
23.       procedure SetHandle(const Value: THandle);
24.       procedure SetData(const Value: TList);
25.       function  GetParentHandle():THandle;//设置 
26.       procedure SetDestClassName(const Value: String);
27.       procedure SetCount(const Value: Integer);
28.     public
29.       constructor Create();
30.       destructor Destroy();
31.       function FillEdit():boolean;//填充Edit窗体数据
32.     published
33.       property Data:TList read FData write SetData;
34.       property Count:Integer read FCount write SetCount;
35.       property Handle:THandle read FHandle write SetHandle;
36.       property DestClassName:String read FDestClassName write SetDestClassName;
37.       property FormTitle:string read FFormTitle write SetFormTitle;
38.       function EnumChildWndProc(AhWnd:LongInt;AlParam:lParam):boolean;stdcall;//尤其是这里其实这个 用法本身就不对
39.   end;
41. implementation
43. { TEditFill }
45. constructor TEditFill.Create;
46. begin
47.    FHandle:=0;
48.    FCount:=0;
49.    FFormTitle:='';
50.    FDestClassName:='';
51.    FData:=TList.Create;
52. end;
54. destructor TEditFill.Destroy;
55. begin
56.   FHandle:=0;
57.   FFormTitle:='';
58.   FCount:=0;
59.   if FData.List <> nil then
60.   FData.Free;
61. end;
62. function TEditFill.EnumChildWndProc(AhWnd:LongInt;AlParam:lParam):boolean;stdcall;
63. var
64.    ClassName,Text:PChar;
65. begin
66.    if AhWnd <> 0 then
67.       GetClassName(AhWnd,@ClassName,256)
68.    else
69.    begin
70.       Raise Exception.Create('目标窗口句柄为空');
71.       exit;
72.    end;
73.    if SameText(String(ClassName),DestClassName) then
74.    begin
75.       SendMessage(aHwnd,WM_GETTEXT,0,Integer(Text));
76.       if Text = '' then
77.       begin
78.          if Count <= Data.Count then
79.             SendMessage(aHwnd,WM_SETTEXT,0,Integer(Data.Items[Count]));
80.           Count:=Count+1;
81.       end;
82.    end;
83.    Result:=True;
84. end;
85. function TEditFill.FillEdit: boolean;
86. var
87.   aHandle:THandle;
88. begin
89.   Result:=True;
90.   if FHandle <> 0 then
91.   begin
92.      aHandle:=FHandle;
93.      EnumChildWindows(aHandle,Self.MethodAddress('EnumChildWndProc'),0)
94.   end
95.   else
96.     Result:=False;
97. end;
99. function TEditFill.GetParentHandle: THandle;
100. var
101.    aHandle:THandle;
102. begin
103.    if FFormTitle = '' then
104.    begin
105.       raise Exception.Create('目标窗口标题不能为空');
106.       exit;
107.    end;
108.    if FindWindow(nil,Pchar(FFormTitle))<> 0 then
109.       aHandle:= FindWindow(nil,Pchar(FFormTitle));
110.    Result:=aHandle;
111. end;
112. procedure TEditFill.SetCount(const Value: Integer);
113. begin
114.    FCount:=Value;
115. end;
117. procedure TEditFill.SetData(const Value: TList);
118. begin
119.   if Value.List <> nil then
120.     FData.Assign(Value,laCopy,nil);
121. end;
123. procedure TEditFill.SetDestClassName(const Value: String);
124. begin
125.   FDestClassName := Value;
126. end;
128. procedure TEditFill.SetFormTitle(const Value: string);
129. begin
130.   FFormTitle:=Value;
131. end;
133. procedure TEditFill.SetHandle(const Value: THandle);
134. begin
135.   if Value <> 0 then
136.      FHandle:=Value;
137. end;
139. end.