Question

delphi 如何遍历窗口edit组件

Answer 1

这个是窗体的EDIT全部改为空
var
i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if components[i] is Tedit then
(components[i] as Tedit).text:='';
end;
end;

追问

能不能通过遍历，让Tedit获得焦点时候改变颜色，失去焦点时恢复颜色呢？

追答

那你这样试下看看
var
i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if components[i] is Tedit then
(components[i] as Tedit).text:='';
加颜色的代码
showmessage(inttostr(i));
end;
end;