方法一:(经测试,行得通)
var
i:integer;begin
for i:= 0 to ComponentCount -1 do
begin
if (Components[i] is TEdit) and (TEdit(Components[i]).color = clred) then
TEdit(Components[i]).Left:=TEdit(Components[i]).Left + 5;
end;
end;
方法二:(技术有限,测试失败)
var
c:TControl;
i:
integer
;
begin
edit1
.
Focused;
for
i:=
0
to
self
.
ControlCount-
1
do
begin
c:=self
.
Controls[i];
if
(c
.
ClassName=
'TEdit'
)
and
((c
as
TEdit).Focused)
then
showmessage(c
.
Name);
end
;
end
;