프로그래밍 노트

컴포넌트에 속해 있는 컴포넌트 수 구하는 방법 procedure TForm1.Panel1Click(Sender: TObject); var i : integer; pnlSender : TPanel absolute Sender; begin // 클릭한 패널의 부모가 가지고 있는 자식들의 수 for i := 0 to pnlSender.Parent.ControlCount - 1 do begin // 컨트롤이 TPanel인가? if (pnlSender.Parent.controls[i] is TPanel) then TLabel(pnlSender.Parent.Controls[i]).Color := clBtnFace; end; pnlSender.Color := clBlue; end; 이렇게 하면 어떤 컴포넌트 안에 속..