循环将窗体上所有的Edit的Visible设为True?
循环将窗体上所有的Edit的Visible设为True?
[解决办法]
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TEdit then
(Components[i] as TEdit).Visible := True;
end;
end;
[解决办法]
var
i:Integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if self.Components[i] is TEdit then
begin
TEdit(self.Components[i]).Visible:=True;
end;
end;
end;
