새로운 글
새로운 덧글

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

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.8~2019.12 관리자 2015.01.22 6458
공지 유용한 관련 사이트 관리자2 2014.03.20 43803
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 85030
324 [시애틀]디버그 모드 진입 불가 [1] 김태윤 2016.06.14 261
323 [시애틀]비콘을 안드로이드 서비스로 감지하는데 자꾸 응답없음으로 강제종료됩니다. [2] 김태윤 2016.06.09 381
322 firemonkey로 window와 mac OS 를 개발하는 중입니다. 모바일과 푸쉬를 주고 받을수 있는지 궁금합니다. [1] 운땡최향태 2016.05.31 84
321 안드로이드 디버깅이 재대로 실행되지 않습니다. [3] hsson 2016.06.03 313
320 Xe5에서 안드로이드 버전 얼마까지 지원되나요? [1] 농가사랑 2016.06.01 136
319 안드로이드 서비스(백그라운드 실행)에서 특정 상황에서 앱자동 실행 [2] 김태윤 2016.05.24 2127
318 ListBox Item Style내부 색상변경 [2] 박군80 2016.05.24 270
317 OSX 개발시 ICON 가져오기 freehun 2016.05.27 65
316 안드로이드 블루투스 한글 관련 질문 [1] hsson 2016.05.13 285
315 안드로이드 비트맵 최대크기관련 질문. [1] hsson 2016.05.26 270
314 파이어몽키로 사진저장 파일오류...?? [1] 밤바야 2016.05.26 338
313 Troubleshooting cannot deploy an application for android에러 [2] file 김태윤 2016.05.23 215
312 Xe5에서 SDK 삭제후 재 설치 할 수 있나요? [1] 농가사랑 2016.05.12 112
311 베를린의 다이나믹 리스트뷰에서 정렬하는 방법을 알고 싶습니다. [1] file 거북이 2016.05.09 83
310 안드로이드 앱이 실행하진않는 오류가 발생합니다.. [3] 밤바야 2016.05.02 774
» 파이어몽키 ListBox에서 목록 삭제 방법 문의 [1] 김태윤 2016.04.29 320
308 겔럭시노트5 OS업데이트후 디버깅 문제 [2] 김태윤 2016.04.22 1086
307 앱설치시 홈화면에 바로가기 만들기 문의 [2] 김태윤 2016.04.07 583
306 안드로이드 다국어 가상 키보드 고정 방법 있나요? [2] 한사람 2016.04.15 687
305 유투브 링크 영상을 플레이 하는법이 궁금합니다. [1] 최향태 2016.04.14 166



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