2010. 3. 24. 19:28

동적 체크박스 생성

var
     chb_aHTECOD : Array [1..10] of TCheckBox;
     cnt_HTECOD : Integer;

Begin
     For cnt_HTECOD := 1 to Length(chb_aHTECOD) Do
     Begin
         chb_aHTECOD[cnt_HTECOD] := TCheckBox.Create(Application);   // (Self) 가능
         chb_aHTECOD[cnt_HTECOD].Parent := Panel1;
         chb_aHTECOD[cnt_HTECOD].Width := 150; 
         chb_aHTECOD[cnt_HTECOD].Left := Panel1.Width - chb_aHTECOD.Width div 2;    // 각각 조정
         chb_aHTECOD[cnt_HTECOD].Top := Panel1.Height - chb_aHTECOD.height div 2; 
         chb_aHTECOD[cnt_HTECOD].Caption := '동적 체크';
     End;
End;


'Delphi' 카테고리의 다른 글

올림 / 내림(버림)  (0) 2011.08.03
델파이의 소숫점 반올림 방식  (2) 2011.08.03
단축키 모음  (0) 2010.03.22
TDateTime형 - 3  (0) 2009.12.01
TDateTime형 - 2  (0) 2009.12.01