자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

안녕하세요?

 

델파이 시애틀을 이용하여 모바일 앱을 개발하려고 연구중입니다.

 

이번 질문은 ListBox에 TFrame를 이용하여 사원 목록을 만들었습니다.

 

ListBox에 리스트를 만들고 수정하는 법도 익혔습니다.

 

그런데 ListBox에서 특정 인덱스의 리스트를 삭제하는 방법을 못 찾고 있습니다.

 

예를 들면 체크된 리스트 아이템만 골라서 리스트에서 제거하려고 하는데 제거하는 매서드가 무엇인지요?

 

아래는 ListBox에 TFrame을 생성하여 리스트화하는데 사용한 매서드와 특정  인덱스의 리스트를 수정해본 소스입니다.

 

//ListBox에 프레임을 생성해서 붙임

procedure TForm1.AddWorkPlan(ListBox: TListBox; FrameHeight:integer; FrameCode, STCode, STName, STBCode, STJCode, ImageUrl: String;
  BGColor, NameColor, BCodeColor: Cardinal);
var item : TListBoxItem;
    iFrmWorkPlan : TFrmWorkPlanFrame;//리스트에 붙여질 프레임
begin
    ListBox.BeginUpdate;
    Item := TListBoxItem.Create(ListBox);//리스트박스의 리스트에 붙을 아이템하나 생성
    iFrmWorkPlan := TFrmWorkPlanFrame.Create(self);//아이템에에 붙일 프레임을 하나 생성
    iFrmWorkPlan.Parent:= item;//프레임을 아이템관리자의 하위개체로 등록
    iFrmWorkPlan.Name :=  FrameCode;//프레임을 별도 제어하기 위해 이름을 지정.
    iFrmWorkPlan.Width := ListBox.Width;
    iFrmWorkPlan.Width := ListBox.Width;
    iFrmWorkPlan.Height := FrameHeight;
    iFrmWorkPlan.Position.X := 0;
    iFrmWorkPlan.Position.Y := 0;
    //프레임의 개별 컴포넌트의 값 설정
    iFrmWorkPlan.HideValue1 := STCode;
    iFrmWorkPlan.HideValue2 := STCode;
    iFrmWorkPlan.HideValue3 := STCode;
    iFrmWorkPlan.STName.Text := STName;
    iFrmWorkPlan.STJCode.Text := STBCode + ' - ' + STJCode;

    iFrmWorkPlan.background.Fill.Color := BGColor;
    iFrmWorkPlan.background.Stroke.Color := BGColor;
    iFrmWorkPlan.STName.TextSettings.FontColor := NameColor;
    iFrmWorkPlan.STJCode.TextSettings.FontColor := BCodeColor;


    item.Height := iFrmWorkPlan.Height;
    item.Width  := iFrmWorkPlan.Width ;
    item.OnApplyStyleLookup := WorkPlanLookup;//리스트박스의 아이템이 화면에 보일때 처리할 내용.(한번에 불러오기 너무 큰 데이터들은 보일때 부분부분씩 불러올수 있음).Pay_ItemApplyStyleLookup함수를 만들어서 해당 함수가 작동
    item.Data := iFrmWorkPlan;//아이템에 만들어진 프레임을 붙임
    ListBox.AddObject(item); //리스트 박스에 생성한 아이템을 붙임
    ListBox.EndUpdate;
end;

//리스트  10개 생성
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
    for i := 0 to 10 do
    begin
        AddWorkPlan(ListBox1, 100+(i*10), 'WP'+IntToStr(i), 'WP'+IntToStr(i+1), '철수'+IntToStr(i), '부서'+IntToStr(i), '대리', '');
    end;
end;

//2번째 리스트아이템 이름 변경

procedure TForm1.Button2Click(Sender: TObject);
var item : TListBoxItem;
begin
      item := ListBox1.ListItems[1];//1번째 아이템을 불러온다.

      (item.Data as TFrmWorkPlanFrame).STName.Text := '영희'+IntToStr(1);  //프레임형태로 형변환 하여 이름값 변경
end;

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15638
공지 유용한 관련 사이트 관리자2 2014.03.20 54468
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97837
2419 TBitmap 갯수 및 크기제한 [2] 100jk 2019.03.06 139
2418 스트링그리드에서 특정셀의 컬러 변경 문의 [1] 포세가이 2019.03.12 391
2417 델파이 xe 디버깅시 값확인 [1] 가나다 2019.03.08 714
2416 실행시 다중폼에서 리소스에 의한 잔상(?) 문제 포세가이 2019.03.15 136
2415 델파이 XE 디버깅시 매번 재컴파일 하나요? [1] 가나다 2019.03.14 140
2414 C++ Builder에서 FCM 사용 어떻게 하나요? [4] 개성산전 2019.01.11 381
2413 IDE의 기본 파일 포맷을 UTF-8로 지정하고 싶습니다. [2] 개성산전 2019.02.21 414
2412 구글스토어 개발자콘솔 앱등록 관련 문의드립니다. 시리온느 2019.03.13 192
2411 델파이 디버깅 키 문의 [1] 가나다 2019.03.13 469
2410 델파이와 파스칼은 뭔가요? [2] 엽기토끼이요 2019.03.13 883
2409 json 사용 https 주소로 post 방식으로 API 호출tl Header 에 key 추가부분좀 봐주세요 [1] 가나다 2019.03.07 3257
2408 델파이 xe2 디버깅 환경 셋팅? [3] 가나다 2019.03.06 362
2407 frxxlsexport 안보이는 현상 가나다 2019.03.06 74
2406 만든 앱에서 블루투스 설정을 하면 종료가 되는데요. 왜 그럴까요? [2] 화이부동 2019.03.02 251
2405 델파이 설치관련. [2] 개미 2019.03.06 113
2404 Delphi에서 C++로 코드 변환 중 문의 [2] file 손보라 2019.03.05 232
2403 델파이 IDE 관리자모드 실행 키위 2019.03.05 523
2402 STL allocator 관련 컴파일 질문 드립니다. [1] kang 2019.03.04 155
2401 기술자료에 있는 REST API 에러 원인 좀 file 봉프 2019.03.04 137
2400 FMX에서 플랫폼의 CPU 코어갯수나 스레드 갯수가져오는법? 100jk 2019.03.01 122