procedure Proc_Enabled_Comp(vp_Comp: TComponent);
var
i: Integer;
begin
with TWinControl(vp_Comp) do
begin
for i := 0 to Controlcount - 1 do
begin
if (Controls[i] is TMaskEdit) then
TMaskEdit(Controls[i]).Color := clWindow
else if (Controls[i] is TLabel) then
TLabel(Controls[i]).Color := clWindow;
end;
end;
end;
var
i: Integer;
begin
with TWinControl(vp_Comp) do
begin
for i := 0 to Controlcount - 1 do
begin
if (Controls[i] is TMaskEdit) then
TMaskEdit(Controls[i]).Color := clWindow
else if (Controls[i] is TLabel) then
TLabel(Controls[i]).Color := clWindow;
end;
end;
end;
이런식으로 하시면 될것같네요...
근데 이런유형은 검색하시면 좋은거 많이 나오는데...
즐프하세요...