--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에 의해서 생성되었는지
어떻게 알수 있는지 좀 알려주세요.
> --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와
일치하는 곳에서 생성되었음을 확인할 수 있겠죠...