Q&A

  • 폼이 어떤것인지 알려면..
--TForm1.-----



var

aaa : TForm2;

begin

aaa := TForm2.create(application);

aaa.showmodal;

end;



var

bbb : TForm2;

begin

bbb:= TForm2.create(Application);

bbb.showmodal;

end;



로 모달폼으로 TForm2가 aaa나 bbb로 생성되어 화면에 나타났을때

Tform2자신이 aaa에 의해서 생성되었는지 bbb에 의해서 생성되었는지

어떻게 알수 있는지 좀 알려주세요.



1  COMMENTS
  • Profile
    주경래 1999.08.07 19:26
    성병규 께서 말씀하시기를...

    > --TForm1.-----

    >

    > var

    > aaa : TForm2;

    > begin

    > aaa := TForm2.create(application);

    > aaa.showmodal;

    > end;

    >

    > var

    > bbb : TForm2;

    > begin

    > bbb:= TForm2.create(Application);

    > bbb.showmodal;

    > end;

    >

    > 로 모달폼으로 TForm2가 aaa나 bbb로 생성되어 화면에 나타났을때

    > Tform2자신이 aaa에 의해서 생성되었는지 bbb에 의해서 생성되었는지

    > 어떻게 알수 있는지 좀 알려주세요.

    >



    여러가지 방법이 있겠지만

    1) Form2의 Name Property를 써보는 방법

    위의 방법은 해보지 않아서 확실하지는 않습니다.



    2) 버튼에 Tag를 넣고 Click Event에서 Form2의 Tag를 넣어

    주고 확인하는 방법



    --TForm1.-----



    var

    aaa : TForm2;

    begin

    aaa := TForm2.create(application);

    aaa.Tag := TButton(Sender).Tag; // 새로추가됨

    aaa.showmodal;

    end;



    var

    bbb : TForm2;

    begin

    bbb:= TForm2.create(Application);

    bbb := TButton(Sender).Tag; // 새로추가됨

    bbb.showmodal;

    end;



    그래서 Form이 Show Event에서 Form2의 Tag가 Button의 Tag와

    일치하는 곳에서 생성되었음을 확인할 수 있겠죠...