Q&A

  • Assigned <- 요 함수 이거 대체 ㅡ.ㅡ;;; 도와주세여 ㅜ.ㅜ
안녕하세여 꾸벅...



procedure TForm1.AS1Click(Sender: TObject);

var

a : Tform2;

begin

if not Assigned(form2) then

a := tform2.Create(Application);

a.Show;

a.top := 0;

a.left := 0;

요기서 저 넘 의 용도를 잘 멀겠네여..

제가 보기엔.. form2 에 저장된 값을 읽는거 같은데...

이것은 mdi 폼에서 버튼 클릭시에 다른 폼을 불러서 보여주는거거든여..

한번눌르면 아무런 이상이 없지만 두번눌르면 에러 메세지가 뜨네여..

좀 도와주세여 ㅜ.ㅜ..

mid 폼에 저 form2폼이 이미 실행이 되어있으면 맨위에 줄의 문장이 실행이

안되야 정상인거 같은데...그렇지 않은가봐요..좀 도와주십시요..꾸벅...





1  COMMENTS
  • Profile
    최의종 2001.01.16 00:41
    안녕하세요?



    Form2는 TForm2의 인스턴스인데, TForm2가 해제될때 Form2가 nil이 되진 않거든요.

    TForm2.OnFormCloseQuery 에서 caFree 액션을 주시고 Form2 := nil; 코드를 넣으세요.



    그럼!









    좀도와주세요 wrote:

    > 안녕하세여 꾸벅...

    >

    > procedure TForm1.AS1Click(Sender: TObject);

    > var

    > a : Tform2;

    > begin

    > if not Assigned(form2) then

    > a := tform2.Create(Application);

    > a.Show;

    > a.top := 0;

    > a.left := 0;

    > 요기서 저 넘 의 용도를 잘 멀겠네여..

    > 제가 보기엔.. form2 에 저장된 값을 읽는거 같은데...

    > 이것은 mdi 폼에서 버튼 클릭시에 다른 폼을 불러서 보여주는거거든여..

    > 한번눌르면 아무런 이상이 없지만 두번눌르면 에러 메세지가 뜨네여..

    > 좀 도와주세여 ㅜ.ㅜ..

    > mid 폼에 저 form2폼이 이미 실행이 되어있으면 맨위에 줄의 문장이 실행이

    > 안되야 정상인거 같은데...그렇지 않은가봐요..좀 도와주십시요..꾸벅...