동적으로 TabSheet를 만들었더니
TabSheet만들고 그 위헤 Edit만들고 Label만들고
또 객체를 해제 할때는 Label지우고 Edit지우고TabSheet지우고...
넘 원시적이라서.
좀더 세련되게 해볼려고.
Form을 TabSheet클래스로부터 상속받게 하여 디자인하고
맨위 uses절에 Unit1을 등록했습니다.
그리고 Form생성이벤트는
inherited Create(Form1);
parent := form1;
pagecontrol := Form1.Pagecontrol1;
이렇게 코딩하고
Form1에서는 정적으로 PageControl1을 올려놓고 버튼클릭시
Form2.Create(self)를 하였습니다.
근대 TabSheet 가 PageControl위에 생기질 않네요.
이렇게 하는 것이 너무 효율적일꺼 같은데...
도와주세요.
|