Q&A

  • 쉬운질문입니다.. 답변 좀 해주세요
질문이 있습니다..
폼이 두개가 있는데요...
test1frm
test2frm
이렇게 있다구 하면요...
test1frm이 열린 상태에서 test2frm이 안열렸을 경우 edit1.text := '1234';
둘 다 열렸을 경우 edit1.text := '1234', edit2.text := '5678'
이렇게 하고 싶은데요...
어떻게 해야 되는지....ㅡㅡa
1  COMMENTS
  • Profile
    김도형 2002.04.19 01:15
    procedure TForm1.Button1Click(Sender: TObject);

    begin

      if findComponent('test2frm') = nil then begin
         Edit1.text := '1234';
         Edit2.text := ''
      end else begin
         Edit1.text := '1234';
         Edit2.text := '5678';
      end;

    end;

    위에서 처럼 FindComponent를 사용하면 되네여 ^^