자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 20049
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
1299 구글 플레이 스토어에 앱을 올리려 합니다. [1] 가은 2016.04.29 502
1298 IBLite 다운받는 순서에서 질문입니다. [3] youngdel 2016.04.20 320
1297 계층적 구조에 대해서 질문이 있습니다. [2] youngdel 2016.04.26 169
» 파이어몽키 ListBox에서 목록 삭제 방법 문의 [1] 김태윤 2016.04.29 662
1295 다시 글올립니다. dll 불러온 화면에서 탭키, 방향키가 작동이 안됩니다. 쭈니쿤 2016.04.29 167
1294 splash image 에 대해서 문의 드립니다. youngdel 2016.04.28 299
1293 델파이10 시애틀에서 TFDIBBackup에서 한글 DB명 사용 질문드립니다. [1] 불나방 2016.04.27 264
1292 window 시스템에서 안드로이드 개발과 아이폰 개발에 관해서 [2] youngdel 2016.04.28 269
1291 파일 열기 오류 kyh 2016.04.27 738
1290 RAD studio 10 에서 View 화면으로 보는 셈플들에 대해 문의 드립니다. youngdel 2016.04.27 151
1289 프로젝트 에 화일을 추가하면 다른 파일을 깨트리는데 [5] aaa 2016.04.14 213
1288 델파이10 시애틀 사용중입니다. [1] file 김현수 2016.04.26 960
1287 [질문] Drag & Drop이 안됩니다. [1] Xiong 2016.04.26 645
1286 FDQuery Sorting 하는 방법이 궁금합니다~ [1] 짧굵 2016.04.25 249
1285 XE7 access violation at 0x00020006. 이상한 에러 [2] 한시민 2016.04.06 283
1284 안드로이드 외부앱 실행 가능한가요 [1] kerry 2016.04.21 732
1283 겔럭시노트5 OS업데이트후 디버깅 문제 [2] 김태윤 2016.04.22 1440
1282 델파이 베를린의 FireUI 에 대하여 가르쳐주시기 바랍니다. [2] 거북이 2016.04.25 215
1281 GPS 기능을 서비스앱에 넣고 싶은데요.. [1] 미루후예 2016.04.20 219
1280 델파이 10 씨에틀을 사용중인데요.... [1] 도고래 2016.04.21 212