Q&A

  • eewook님께 감사의 말씀과 또다른 문제에 대하여..
eewook님 안녕 하세요?

귀하께서 가르켜주신 방법으로 하니 제가 원하는 결과을 얻었습니다.

그런데 다른 문제가 발생하였습니다.form1에서 버튼을 클릭하면 form2가 생성되게

아래와 같이 코딩을 하였습니다.

procedure TForm1.Button3Click(Sender: TObject);

begin

form2.show;

end;



Form1에서 변수abc에 값을 넣고 form2가 create 할때 아래와 같이



procedure TForm2.FormCreate(Sender: TObject);

begin

edit1.text := abc; // abc 전역 변수

edit2.Text := abc;

end;

하였습니다.

그러나 form2가 생성되면서 form2의 edit1,edit2에 변수abc의 내용이 나타나질

않습니다. 무엇이 문제인지 모르겠습니다.

그런데 form2에서 버튼을 만들어 버튼이 클릭될때 edit1,edit2에 변수abc을 대입하면

정상적으로 실행됩니다.

제가 원하는 프로그렘은 form1에서 대입된 변수abc의 내용이 form2가 나타날때

form2의 edit1,edit2에 표시되기를 원합니다.

2  COMMENTS
  • Profile
    아폴론 2001.02.10 18:21
    폼1의 implementation 아래

    uses Form2의Pas명;

    을 해 주시고

    Form2:= TForm2.create(self);

    Form2.show;

    로 함 해보세요.









    조현숙 wrote:

    > eewook님 안녕 하세요?

    > 귀하께서 가르켜주신 방법으로 하니 제가 원하는 결과을 얻었습니다.

    > 그런데 다른 문제가 발생하였습니다.form1에서 버튼을 클릭하면 form2가 생성되게

    > 아래와 같이 코딩을 하였습니다.

    > procedure TForm1.Button3Click(Sender: TObject);

    > begin

    > form2.show;

    > end;

    >

    > Form1에서 변수abc에 값을 넣고 form2가 create 할때 아래와 같이

    >

    > procedure TForm2.FormCreate(Sender: TObject);

    > begin

    > edit1.text := abc; // abc 전역 변수

    > edit2.Text := abc;

    > end;

    > 하였습니다.

    > 그러나 form2가 생성되면서 form2의 edit1,edit2에 변수abc의 내용이 나타나질

    > 않습니다. 무엇이 문제인지 모르겠습니다.

    > 그런데 form2에서 버튼을 만들어 버튼이 클릭될때 edit1,edit2에 변수abc을 대입하면

    > 정상적으로 실행됩니다.

    > 제가 원하는 프로그렘은 form1에서 대입된 변수abc의 내용이 form2가 나타날때

    > form2의 edit1,edit2에 표시되기를 원합니다.

    >
  • Profile
    뿌요 2001.02.10 18:19
    다른 폼의 변수를 가져올려면

    어떤폼의 어떤변수를 가졌왔는지를 명확히 표시하여야 합니다.



    from2의 unit이름이 unit1이라고 가정하면



    procedure TForm2.FormCreate(Sender: TObject);

    begin

    edit1.text := unit1.abc; // abc 전역 변수

    edit2.Text := unit1.abc;

    end;





    조현숙 wrote:

    > eewook님 안녕 하세요?

    > 귀하께서 가르켜주신 방법으로 하니 제가 원하는 결과을 얻었습니다.

    > 그런데 다른 문제가 발생하였습니다.form1에서 버튼을 클릭하면 form2가 생성되게

    > 아래와 같이 코딩을 하였습니다.

    > procedure TForm1.Button3Click(Sender: TObject);

    > begin

    > form2.show;

    > end;

    >

    > Form1에서 변수abc에 값을 넣고 form2가 create 할때 아래와 같이

    >

    > procedure TForm2.FormCreate(Sender: TObject);

    > begin

    > edit1.text := abc; // abc 전역 변수

    > edit2.Text := abc;

    > end;

    > 하였습니다.

    > 그러나 form2가 생성되면서 form2의 edit1,edit2에 변수abc의 내용이 나타나질

    > 않습니다. 무엇이 문제인지 모르겠습니다.

    > 그런데 form2에서 버튼을 만들어 버튼이 클릭될때 edit1,edit2에 변수abc을 대입하면

    > 정상적으로 실행됩니다.

    > 제가 원하는 프로그렘은 form1에서 대입된 변수abc의 내용이 form2가 나타날때

    > form2의 edit1,edit2에 표시되기를 원합니다.

    >