|
초짜 님이 쓰신 글 :
: : 아래는 델파이코드다. 알아서 씨빌더로 바꿔써라..ㅋㅋㅋ
: : 빌더 안한지 거의 2년 되가기땜에 다 까묵었다.ㅠㅠ
: :
: : procedure TForm1.Button1Click(Sender: TObject);
: : var i : integer;
: : begin
: : listbox1.Clear;
: : for i:=0 to ComponentCount - 1 do
: : if Components[i] is TCheckBox then
: : if TCheckBox(Components[i]).checked then
: : listbox1.Items.Add(TCheckBox(Components[i]).caption);
: : end;
:
: 우선 헝아 이름은 글에서 빼고..
:
: 그리고 체크박스가 그것만 있는게 아니거든..
:
: 사방에 깔려 있고..
:
: 내가 알고자 하는 것은 어떤 특정 패널위 그룹박스 위에 있는 체크박스의 값이란다.
:
: ^^a 하여튼 니까짓꺼의 답변도 받아보고 내가 공부를 안하기는 징하게 안했나보구나. ㅎㅎ
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
listbox1.Clear;
for i:=0 to ComponentCount - 1 do begin
if Components[i].GetParentComponent.Name <> name then
if (Components[i].GetParentComponent.GetParentComponent.Name = panel1.Name)
and (Components[i] is TCheckBox) then
if TCheckBox(Components[i]).checked then
listbox1.Items.Add(TCheckBox(Components[i]).caption);
end;
end;
그럼 이렇게 하면되지...ㅋㅋㅋ
|