컴퍼넌트를 생성할때...선언을...
컴퍼넌트는 경우따라서 여러개를 생성을 해야하는 관계로 배열로 했습니다.
type
TAryTabSheet = Array of TTabSheet;
TSheetScroll = Array of TScrollBox;
TStrGrid = Array of TStringGrid;
변수선언은...
var
StrGrid : TStrGrid;
AryTabSheet : TAryTabSheet;
SheetScroll : TSheetScroll;
SetLength 로 갯수 지정도 물론 하구여!
컴퍼넌트 크레이트할때...
AryTabSheet[i] := TTabSheet.Create(frmName);
SheetScroll[i] := TScrollBox.Create(AryTabSheet[i]);
StrGrid[i] := TStrGrid.Create(AryTabSheet[i]);
참고로
AryTabSheet[i].PageControl := PageName;
AryTabSheet[i].Parent := PageName;
StrGrid[ACnt+1].Parent := SheetScroll[i];
이런 과정으로 컴퍼넌트를 생성을 합니다.
참고로 부모의 컴퍼넌트가 종료되면 상속 부여된 컴퍼넌트는 따라서
같이 종료되는것으로 알고 있어서 Free나 Destroy를 따로 하지 않았습니다.
혹시 이것 때문에 첨부된 그림과 같은 오류가 발생하는것인가여...
참고로 TStringList로 생성을 하지만.. 이것은 Free를 처리합니다.
무슨 문제일까여? 실행 후 잘 돼다가 갑자기 오류메시지가 나곤합니다.
발생하는 시기가 일정하지도 않구여!! 너무 답답합니다.. 좀 원인을 갈켜주세요!
즐건 하루 보네시구여!