새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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 인데 왜 그런지 궁금합니다.

항상 감사합니다.


 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2018.8~2018.11 관리자 2015.01.22 5994
공지 유용한 관련 사이트 관리자2 2014.03.20 43228
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84873
481 seattle FMX에서 GetJDisplayMetrics hsson 2018.03.28 18
480 안드로이드를 선택할 경우 run이 비활성화 되었습니다 [2] 조르디 2018.03.21 48
479 RadStudio tokyo 10.2.3 설치 후 TMapView Error [2] 제우스 2018.03.21 76
478 Tokyo 10.2.2에서 안드로이드용 실행문제 [2] 스카이 2018.01.26 142
» 동적생성한 컴퍼넌트 해제 질문입니다. [1] 희망나라 2018.02.28 48
476 최신폰 하단의 Navigation Bar 에 따른 FormResize 문제 [1] 지병철 2018.03.05 33
475 델파이/C++빌더에서 OSX 컴파일 문제 발생 [1] file 토끼왕 2018.02.24 38
474 안드로이드에서 TMemo 입력문제 해결방안 문의 [4] 지병철 2018.02.23 76
473 10.2 Tokyo에서 TFrame등의 Animation 문제 해결방법. [5] 푸른솔 2017.12.29 100
472 책장 넘기는 효과가 델파이에 있나요? [2] 슈퍼맨 2018.02.07 114
471 FMXLinux [1] file 미크 2018.02.08 49
470 안드로이드 앱 개발 중 발생하는 오류 관련해 문의 드립니다. [1] file 관리자 2018.02.01 39
469 android폰에서 첨부파일 클릭시 파일 업로드와 다운로드가 되지를 않습니다. [3] 조르디 2018.01.22 136
468 아이폰 본인 전화번호 확인방법?? [1] kerry 2018.01.20 517
467 LocationSensor 관련 문의 - GPS 없음 [3] 소란코더 2018.01.17 43
466 keystore [3] 희망나라 2018.01.12 42
465 [질문] 개발자 Q/A에 있는 QR/바코드 스캐너 앱 샘플코드(ZXing, TFrameStand 사용) 설치하여 10.2 Tokyo 모바일에서실행하니 첨부파일같이 오류가 납니다 [5] file delphi 2018.01.11 80
464 Tokyo 10.2.1에서 동적생성된 TFrame 해제시 오류... [6] file 푸른솔 2017.10.14 157
463 XE10.2 Showmodal 폼에서 TEdit/TButton등 안 먹습니다. [1] 소란코더 2017.12.15 65
462 모바일에서 메일전송시 ssl negotiation failed 메세지?? [1] kerry 2017.12.08 48



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