자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15806
공지 유용한 관련 사이트 관리자2 2014.03.20 54607
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98054
379 모바일 개발시 ListView에 관하여... [4] 파빌신 2014.05.05 2924
378 델파이 xe5 - 안드로이드 - datasnap 개발시 [1] superman 2014.05.07 2924
377 아랍어등 오른쪽에서 왼쪽 방향으로 사용되는 언어 지원 file Humphery 2014.03.21 2939
376 AWS 개발이 가능한지요? [1] DevCK 2020.03.31 2955
375 델파이 XE5 다국어 프로그램 실행시 오류 [1] file 재덕 2014.04.04 2957
374 10.4 시드니에서 QuickReport Pro 6 이 설치되나요? [23] 왕초보 2020.10.06 2957
373 파이어몽키 모바일어플리케이션에서 가상키보드에 의한 화면가림현상 해결좀 [2] 농가사랑 2014.08.29 2964
372 TStreamReader 한글깨짐 문제 [6] file IslamsWine 2020.02.29 2985
371 XE5 로 ipa는 못만드나요? [1] 데니얼27 2014.03.19 2988
370 RAD Studio IDE의 소스코드 창과 폼 디자이너창 분리하기 [1] Humphery 2014.05.14 3002
369 프로세스만 뜨고 애플리케이션이 나타나지 않는 현상 file JP 2014.02.24 3014
368 모바일 개발시 이미지 버튼 처리는 어떻게 하나요? [1] couping 2014.03.18 3019
367 OpenDialog 네트워크드라이브가 표시되지 않습니다. [10] allright 2016.11.11 3031
366 [공유] TServerSocket, TClientSocket은 어떻게 등록하나요? file Humphery 2015.03.24 3040
365 XE6 안드로이드 앱 프로젝트에서 deploy 관리자에서 설정파일 추가후, 파일참조경로를 못찾네요 heiman 2014.07.12 3043
364 안드로이드에서 다른 응용프로그램 알림 메세지 정보를 전달 받을수 있나요? 델마당쇠 2020.03.14 3048
363 스크롤시 끊김 현상 [1] 가을이다 2014.06.16 3051
362 모바일 폼 구성시 여러개 폼 생성 방법 [6] 수강생 2014.04.28 3076
» ListBox 테스트시 문의 ( 속도 ) [1] 수강생 2014.04.30 3086
360 html5 builder에서 html문서 만들때 브라우저에서 한글이 깨집니다. file 종달새 2014.02.28 3104