Q&A

  • CheckBox에 관해 질문합니다.
CheckBox와 Edit가 하나로 묶여있는데요...
즉...

Edit1   -    CheckBox1
Edit2   -    CheckBox2
Edit3   -    CheckBox3
Edit4   -    CheckBox4
Edit5   -    CheckBox5

이런식인데요..

버튼을 눌렀을때. CheckBox가 체크되어있으면 그 해당되는
Edit의 값을 불러오려고 합니다..
예를들면 Edit1.Text = 20일때
CheckBox1이 선택되어있으면

버튼을눌렀을때 Memo에 나타내고자 하는 내용은
선택된 EditBox가 몇번째 Edit이고 그 값은 무엇인지 알아내는겁니다..

고수님들 부탁드립니다..


1  COMMENTS
  • Profile
    이성훈 2002.03.29 22:53
    음 findcomponent를 쓰면 될것 같습니다.
    아래에 함 코딩해봤습니다.. 참고하시고요

    procedure TForm1.Button1Click(Sender: TObject);
    var Edit : TEdit;
        CBox : TCheckBox;
        i : Integer;

    begin
              for i := 1 to 5 do begin
                  CBox := TCheckBox(FindComponent('CheckBox'+ IntToStr(i)));
                  if CBox.Checked = True then begin
                     Edit := TEdit(FindComponent('Edit' + IntToStr(i)));
                     showmessage(IntToStr(i) + ' : ' +Edit.Text);
                  end;
              end;
    end;

    즐거운 프로그램 하세요^^