새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

데브기어를 통해 많은 공부를 하고 있습니다.

질문과 답변을 달아주신 모든분께 감사드립니다.

 

한가지 질문을 하려 합니다.

 

메인폼에서 FDConnection, FDQuery를 올리고 여러 Child폼에서 쿼리를 합니다.

 

시간이 오래걸리는 쿼리(insert, update, open등)시 진행중 이라는걸 표시해 주고 끝나면 없어지도록 

구현하고자 합니다.

기본으로 마우스 포인트가 모래시계Sql이 나타났다가 없어지지만 대신에 움직이는 (뱅글뱅글 도는...등)

모양을 주고 싶습니다.

 

지금껏 해본것은 

메인폼에 움직이는 ProgressBar(이하 PB1)를 올리고

FDQuery 이벤트중 BeforeOpen시 PB1.Visible = True, AfterOpen시 PB1.Visible = False 해봤는데  

보여지기는 하나 쿼리중 옴직이질 않습니다.

 

(혹시나 해서 쓰레드도 사용) 아래

procedure TfrmMain.FDQuery1BeforeOpen(DataSet: TDataSet);
begin
   TThread.CreateAnonymousThread(procedure ()
   begin
      TThread.Synchronize(nil, procedure
      begin
         Panel10.Visible := True;
         AdvWiiProgressBar1.Enabled := True;
      end);
   end).Start;
end;

 

procedure TfrmMain.FDQuery1AfterOpen(DataSet: TDataSet);
begin
   TThread.CreateAnonymousThread(procedure ()
   begin
      TThread.Synchronize(nil, procedure
      begin
         AdvWiiProgressBar1.Enabled := False;
         Panel10.Visible := False;
      end);
   end).Start;
end;

 

어떻게 하면 좋을까요..? 한 수 배우고자 합니다. 

감사합니다.

번호 제목 글쓴이 날짜 조회 수
공지 [연말 이벤트] 개발자 Q&A 게시판을 가장 잘 활용해주신 분 상품 증정 관리자 2018.11.12 80
공지 [프로그래밍 강의] 2018.10~2018.12 관리자 2015.01.22 6147
공지 유용한 관련 사이트 관리자2 2014.03.20 43407
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84953
2360 여러 Package 작성시 특정 유닛을 공유하는 방법 100jk 2018.10.05 27
2359 TMS FMX ZBar Reader 사용하신분 계시나요? 생각 2018.10.04 32
» FireDAC사용 쿼리하는 동안 진행중 표시 어떻게..? [2] 공감 2018.10.01 65
2357 IOS 12 대응에 관해서 [1] 돌팅 2018.10.01 92
2356 C++Builder 최신업데이트(30831)불구 Kinvey 푸시 토큰을 받지 못합니다. 개성산전 2018.10.01 55
2355 delphi 10.2.3 +Xcode 10 + IOS 12 환경에서 빌드시 왜 에라메세지가 뜨는지요? [1] file 화이부동 2018.09.26 120
2354 퀀텀그리드 이벤트 관련 문의드립니다. [1] BW 2018.09.19 83
2353 카메라 컴포넌트 관련 문의드립니다. [6] 최봉원 2018.09.10 120
2352 윈도우10 에서 XE7 Fastreport5 오류 문의 [1] juljoo 2018.09.18 59
2351 VCL 컴포넌트를 FMX용으로 바꾸고 싶습니다. [6] 쿠리 2018.09.12 130
2350 FMX Component 생성시 오류 [2] file 100jk 2018.09.04 64
2349 Client 에서 REST Request 시, server certificate 체크 질문드립니다. [2] Joon 2018.09.11 89
2348 IBConsole에서 [3] file 개발자로 2018.09.07 38
2347 Timage 에 특정 이미지 사용시 앱이 꺼짐니다. file 천지조율 2018.09.12 49
2346 윈도우 프로그램 배포(인증문제) [1] 스카이 2018.09.10 183
2345 delphi10.2 SDK 관련 설정 문의 2 신우 2018.09.10 60
2344 윈도우10과 이전 윈도우에서 VCL 버튼이나 메지지 상자 코너 표시형태 문의입니다. [2] KJ 2018.09.08 31
2343 delphi 10.2 sdk 설정 관련 문의 [1] file 신우 2018.09.07 52
2342 블루투스 터미널 앱을 만들고싶습니다. 데이터 수신은 어떻게하나요? [1] Rarity 2018.09.09 62
2341 iOS 11.3 개발 시 PrivateFrameworks 관련 에러 [4] 스카이 2018.05.03 170



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