자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 34244
공지 유용한 관련 사이트 관리자2 2014.03.20 73772
352 SVN 연동 관련 문의 [6] 초초보 2014.05.22 2098
351 App Tethering 문의 [1] 홍루 2014.05.26 1509
350 C++ Builder 에서 MongoDB 사용할 수 있는 방법이 없나요 캐드윈시스템 2014.05.22 2629
349 WebBrowser focus 부분 문의드립니다. [1] file 김하나 2014.05.14 4041
348 Firemonkey Desktop Application 작성 시, 프로젝트 옵션에서 Appearance 기능이 없나요? [1] godkdi 2014.05.16 2373
347 delphi 7.0 에서 xe6로 넘어가려고 하는데 컴포넌트 인스톨 오류 나네요. [1] 하우리 2014.05.16 2399
346 TChart 콤포넌트를 uses만 하면 실행시 error납니다. 차리 2014.05.13 1838
345 C언어로 된 DLL 결과값이 제대로 안들어오는데 도움을 요청합니다..^^ [1] 반벽이 2014.05.08 2046
344 BCP OUT 시 빠른 방법이 있을까요?? [1] 한림대의료원정보기술센터 2014.05.10 2014
343 cannot run project unless a host application id defined. use the run/parameters... [1] file 그래그래 2014.05.08 3326
342 RAD Studio 64bit 디버깅 시 "unable to create process" 오류 메시지발생 [1] 그래그래 2014.05.13 1629
341 Debugger present 라는 메세지는 언제 나오나요? 베스트드레곤 2014.05.12 1503
340 radphp xe2 에서 인쇄을 하는 방법 문의 합니다? 자이소 2014.05.10 1900
339 델파이 xe5 - 안드로이드 - datasnap 개발시 [1] superman 2014.05.07 3021
338 구글 플레이스토어에 올릴 때 업로드 실패. [2] file ScorpioM 2014.05.02 2288
337 안드로이드 가상머신... [1] 파빌신 2014.05.05 2070
336 DataSnap 기능에 대한 질문 드립니다. [2] 파빌신 2014.05.01 1684
» ListBox 테스트시 문의 ( 속도 ) [1] 수강생 2014.04.30 3202
334 DataSnap에서 NetWork 여러개인 경우 파빌신 2014.04.30 1444
333 TcpClient 컴포넌트 사용에 관하여 질문 드리겠습니다. [1] 김종진 2014.04.29 3429