procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to self.ControlCount - 1 do
begin
if self.Controls[i].ClassType = TEdit then
begin
TEdit(self.Controls[i]).Color := clBlue;
end;
end;
end;
물론 해당 컴포넌트가 모두 판넬이나 기타 컨테이너 컨트롤 안에 배치되어 있으면..self대신에 해당 컴포넌트를 사용하셔서 그 컴포넌트 안에 있는 컨트롤들만 대상으로 작업하실 수 도있습니다..
비슷한 류의 질답이 아주 많은데..^^; 검색을 해보심이..
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to self.ControlCount - 1 do
begin
if self.Controls[i].ClassType = TEdit then
begin
TEdit(self.Controls[i]).Color := clBlue;
end;
end;
end;
물론 해당 컴포넌트가 모두 판넬이나 기타 컨테이너 컨트롤 안에 배치되어 있으면..self대신에 해당 컴포넌트를 사용하셔서 그 컴포넌트 안에 있는 컨트롤들만 대상으로 작업하실 수 도있습니다..
즐프~