자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 17183
공지 유용한 관련 사이트 관리자2 2014.03.20 56056
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99495
74 android에서 datasnap 사용하여 stream 데이터 전송시 에러 file godkdi 2014.04.23 3176
73 파이어몽키 모바일개발에서 [1] file fromstog 2014.03.15 3300
72 [XE6] [BRCC32 Error] 갑자기 컴파일이 안되면서 에러가 납니다. [1] 가을이다 2014.07.18 3328
71 안드로이드 스마트폰에서 sqlite DB 보는 방법은? [14] 화이부동 2016.10.31 3332
70 안드로이드 빌드시 Error: Could not create the Java Virtual Machine. 해결방법 문의드립니다 [3] delphi 2018.08.28 3427
69 프레임 동적생성후 해제 (메모리 해제가 안되는현상) [2] 가을이다 2014.06.06 3507
68 MediaPlayer 지원 코덱 [1] godkdi 2014.04.01 3511
67 [XE6] VCL 리스트뷰 사용법 [1] 가을이다 2014.08.29 3572
66 좌측에서 슬라이드 나오는 메뉴 클릭시 문의 [1] file 김하나 2014.03.20 3714
65 WebBrowser focus 부분 문의드립니다. [1] file 김하나 2014.05.14 3887
64 Firemonkey Mobile Application 실행시 "Unable to create process" 에러발생 [2] 박재현 2014.05.23 3910
63 애플 인증서 오류 관련하여 문의드립니다. [3] file delphiman 2021.05.11 3954
62 안드로이드_Media Player 재생 완료 후 앱 화면 문제 [6] godkdi 2014.04.05 4274
61 Firemonkey xe5 update 2 - C++ builder [1] 필요무 2014.02.04 4464
60 안드로이드 버전업 문제 로 문의 드립니다. [7] lilix 2014.02.11 4559
59 IdIcmpClient1.Ping Test Error [3] 진이한이 2014.04.11 4690
58 XE5 질문입니다. [2] 가을이다 2014.01.22 5221
57 TEDIT 에서 한글과 한글 사이 띄워쓰기 할때 스페이스바를 두번 눌러야 되는 문제 [2] 명철 2014.08.01 5358
56 파이어몽키에서 스크린의 사이즈 구하는 방법 [1] 관리자 2013.08.19 5599
55 FM3 질문입니다. Feelple(고재철) 2013.05.10 5601