새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

  TMyListView = Class(TListView)
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TListViewArray = Class
  public
    Box : array[1..42] of TMyListView;
  end;

var

ListViewArray: TListViewArray;
 

//동적으로 TListView 생성

ListViewArray:= TListViewArray.Create;

 

procedure Do_Create;

    for r := 0 to ii do begin
      for c := 1 to ixx do begin
        i := (r * ixx) + c;                                      // i 는 1 ~ 42 까지
        //ListView를 42개까지 생성시키면서 프로퍼티를 정함
        ListViewArray.Box[i] := TMyListView.Create(Nil);  
        ListViewArray.Box[i].Width := 50;
        ListViewArray.Box[i].Height:= 50;
        ListViewArray.Box[i].ID := i;

        ListViewArray.Box[i].Position.X := nHoriTerm + (c - 1) * (50+ nHoriTerm); 
        ListViewArray.Box[i].Position.Y := nTopMargin + r * (50+ nVertTerm);
        ListViewArray.Box[i].Parent := FMdiary.Rectangle1;
        ListViewArray.Box[i].IsBigState := False;
        ListViewArray.Box[i].ItemAppearanceName := TCustomListView.TAppearanceNames.ListItemRightDetail;
        ListViewArray.Box[i].ItemSpaces.Left := 0;        
        ListViewArray.Box[i].ItemSpaces.Right := 0;   
        ListViewArray.Box[i].HitTest := False;
        ListViewArray.Box[i].CanFocus := False;
      end;
    end;

 

//동적으로 생성된 TlistView 해제

procedure Do_Destroy;

    for i := 0 to ii do
      for ix := 1 to ixx do begin
        ListViewArray.Box[(i * ixx) + ix].Items.Clear;
        ListViewArray.Box[(i * ixx) + ix].Free;
        ListViewArray.Box[(i * ixx) + ix] := Nil;
      end;
    ListViewArray.free;

 

맨처음 프레임이 생성될때 Do_Create 해서 해당월에 해당하는 일자 만큼 Tlistview을 생성합니다.

 

다음달 또는 이전달을 클릭하면 Do_Destroy 로 기존 컴포넌트 해제하고 나서 

다시 Do_Create 해서 해당월에 해당하는 일자 만큼 Tlistview을 재생성합니다.

 

이코드가 Xe8 로 컴파일한 앱애서는 다음달, 이전달을 수십번 왔다갔다 해도

데이타까지 뿌려주는 작업 포함 2초 안에 해결됩니다.

하지만 XE10 에서는 다음달, 이전달을 왔다 갔다 할수록 현저히 느려집니다.

 

TlistView 해제가 안되는 것인지.?

 

Xe10.2.1 Tokyo 인데 왜 그런지 궁금합니다.

항상 감사합니다.


 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.4~2019.7 관리자 2015.01.22 6403
공지 유용한 관련 사이트 관리자2 2014.03.20 43736
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 85023
» 동적생성한 컴퍼넌트 해제 질문입니다. [1] 희망나라 2018.02.28 97
449 Serial 통신 에러 관련해서 문의드립니다. [1] 김제언 2018.03.05 67
448 최신폰 하단의 Navigation Bar 에 따른 FormResize 문제 [1] 지병철 2018.03.05 74
447 c++ Builder에도 메모리 릭을 감지할수 있는 툴이 있나요? [3] junho103 2018.03.06 213
446 델파이 XE CODE 1400 에러문의 [1] file 후두리찹찹 2018.03.06 68
445 CPort 관련 에러 [1] file 양승현 2018.03.07 81
444 divide by zero를 try catch 하는법 한시민 2018.03.08 91
443 10.2 tokyo JDK 문제 팁입니다.[질문아님] 제이트 2018.03.08 74
442 XE7 OpenCV 이용시 질문 [1] judvika 2018.03.09 116
441 이미지 StretchDraw문 사용시 글자 깨져 다른 방법 좀 알려주세요? [1] 루카 2018.03.13 72
440 Raize BizComps 관련 문의 사항 [1] 김정명 2018.03.13 41
439 델파이 빌드 에러 [2] 웅재 2018.03.15 134
438 Android Target에서 외부 database 2티어 접속 [1] 허준영 2018.03.15 116
437 datasnap 구현 미들웨어 세션 물고 있는 현상 [1] 생각 2018.03.15 95
436 [마이그레이션 세미나] 파이어 몽키 버전으로 마이그레이션 시 고려해야될 사항들이 궁금합니다. 험프리 2018.03.16 25
435 [마이그레이션 세미나] V3에서 BDE충돌이 많아서 BDE말고 다른 방법으로 변경하고 싶습니다. 험프리 2018.03.16 54
434 [마이그레이션 세미나] 마이그레이션 대체 무엇인가 험프리 2018.03.16 38
433 GotoBookmark(pointer(DBGrid2.SelectedRows.Items[i])) 에러... [1] 왕초보 2018.03.16 141
432 델파이xe 10.2 윈도우10 설치시 Editor창 문자열 한글 크기가 너무 작아집니다. [1] file 미스터몽키 2018.03.17 380
431 XE 버전과 호환가능한 Windows 버전 알려주세요....ㅜㅜ [5] soo583 2018.03.19 104



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..