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

1. TAniIndicator ( 로딩중 표시 )

2. TListBox Addobjcet로 동적으로 약 오천개 입력


버튼 1 ) 

AniIndicator1.Visible := true;

AniIndicator1.Enabled := true;

listbox.BeginUpdate;

Application.ProcessMessages;

for i := 1 to 26 do

begin 

  listboxGroupHeader = TListBoxGroupHeader.Create(listbox);

  listboxGroupHeader.Height := 40;

  listboxGroupHeader.Text := inttostr(i) + ' Header';

  listbox.AddObject(listboxGroupHeader);

  for j := 1 to 200 do

  begin

      listboxitem := TListBoxItem.Create(listbox);

      listboxitem.Height := 40;

      listboxitem.Text := inttostr(i) + ' / ' + c;

      listboxitem.ItemData.Accessory := TListBoxItemData.TAccessory(i mod 3);

      listbox.AddObject(listboxitem); 

  end;

 end;

 listbox.EndUpdate;


 aniIndicator1.Visible := false;

 AniIndicator1.Enabled := false;


----> 버튼 클릭시 폼이 얼어버리는 현상 ( 안드로이드 응답없음 및 대기상태에 있으면 조회됨 )


버튼2) 쓰레드를 사용하니 더 느려짐 ㅠㅠ;; ( 응답없음은 나오지 않으나 제가 뭘 잘못했는지 초보라서 ㅜㅜ;; )


# 클래스정의 ( 쓰레드 )


TLoadThread = class(TThread)

 public

  Config: Boolean;

  FLoopValue : integer;

  FChar : char;

  constructor Create(const aConfig: Boolean); reintroduce;

 protected

  procedure DoProcessing;

  procedure DoProcessing2;

  procedure Execute; Override;

 end;


# 버튼클릭 프로시져 (아래)

 zLThread:= TLoadThread.Create(True);

 zLThread.OnTerminate := ThreadTerminated;

 zLThread.Start;

 Loading := True;

 AniIndi.Visible := True;

 AniIndi.Enabled := True;


# Execute 프로시져


procedure TLoadThread.Execute;

var cc : char;

    i  : integer;

begin

 FreeOnTerminate:= true;

 Form1.lbxList.Clear;

 Form1.lbxList.BeginUpdate;

 for cc := 'a' to 'z' do

 begin

   FChar := cc;

   Synchronize(DoProcessing);  -- Header 입력

   for i := 1 to 200 do

   begin

     FLoopValue := i;

     Synchronize(DoProcessing2); -- Detail 입력 

   end;

 end;

 Form1.lbxList.EndUpdate;

end;

   

procedure TForm1.ThreadTerminated(Sender: TObject);

begin

  zLThread := nil;

  Loading := False;

  AniIndi.Enabled := False;

  AniIndi.Visible := False;

end;  


# 하고자하는 요점은 리스트 박스에 일부 데이터 입력 , 입력시 로딩이미지 사용자 대기상태 , 리스트 박스에 표시 후 로딩이미지 중지를 구현 하려다 보니깐 ... 잘 안됩니다.  ㅠㅠ;;

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20046
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
339 구글 플레이스토어에 올릴 때 업로드 실패. [2] file ScorpioM 2014.05.02 2225
338 안드로이드 가상머신... [1] 파빌신 2014.05.05 2003
337 DataSnap 기능에 대한 질문 드립니다. [2] 파빌신 2014.05.01 1617
» ListBox 테스트시 문의 ( 속도 ) [1] 수강생 2014.04.30 3105
335 DataSnap에서 NetWork 여러개인 경우 파빌신 2014.04.30 1369
334 TcpClient 컴포넌트 사용에 관하여 질문 드리겠습니다. [1] 김종진 2014.04.29 3346
333 스플래쉬 기능 관련 [1] 수강생 2014.04.26 2178
332 XE5 질문입니다. [2] 가을이다 2014.01.22 5234
331 RUN후 발생하는 에러 [1] file 우석이 2014.04.26 903
330 앱 광고 적용하는 방법.. [1] file 김하나 2014.04.26 1490
329 jar파일사용하려고 interface에 함수선언시 파라미터제한있나요?? 차칸 2014.04.24 2416
328 android에서 datasnap 사용하여 stream 데이터 전송시 에러 file godkdi 2014.04.23 3195
327 폼과 에디터 창 전환시 응답없음이 뜹니다. [2] file 가람아빠 2014.04.22 2203
326 XE5 Android에 TWebbrowser를 사용할 때.. [2] ScorpioM 2014.04.15 2059
325 안드로이드_Media Player 재생 완료 후 앱 화면 문제 [6] godkdi 2014.04.05 4308
324 컴파일시 Unit not found: 'System.pas' 오류 [1] 아침햇살 2014.04.09 2649
323 델파이 부호관련질문입니다. [2] modong2 2014.04.14 1735
322 컴파일 에러 secret 빌더User 2014.04.14 8
321 폰으로 앱 테스트 시, 매번 빌드하지 않는 방법있나요? [3] godkdi 2014.04.11 2222
320 두개버전을 동시 설치 했을경우 문제점에 대해 질문드립니다. [1] 아케 2014.04.10 2478