새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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;

 

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

감사합니다.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2018.8~2018.11 관리자 2015.01.22 6050
공지 유용한 관련 사이트 관리자2 2014.03.20 43289
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84886
2376 폼을 가로로 고정하는법 [2] 100jk 2018.10.15 18
2375 FireDAC. FDMEMTable의 txt 반출관련 속도개선 문의드립니다. [1] 오바라미 2018.10.16 11
2374 빌더 오늘 갑자기 이상한 곳으로 링크되고 실행하기 어려울 정도로 나타납니다. [1] file 개성산전 2018.10.12 55
2373 델파이 10.2 사용중인데 알람이 자꾸 뜹니다. [3] 테리 2018.10.12 83
2372 앱에서 글자가 위아래 잘려 보이는 현상 해결 방안 문의 [8] file 지병철 2018.10.05 68
2371 No provisioning profile found for the selected build configuration 에라가 나는데요? file 화이부동 2018.10.12 26
2370 listview Data 뿌려주거나 클릭 시 EvalError 발생. [3] file 엔달 2018.09.27 65
2369 delphi 베를린 android database 에러 질문합니다. [4] devdev 2018.10.05 29
2368 RAD Studio 사용 중 [1] file 초코코초 2018.10.08 39
2367 이미 존재하는 데이터 타입이나 클래스에 Helper가 존재하는지 체크방법 [3] 100jk 2018.10.05 24
2366 iOS 11.4 아직 불가능한가요? [2] 엽기토끼이요 2018.09.17 111
2365 안드로이드 API Level 26 문제 [1] 토끼왕 2018.10.06 33
2364 앱스토어 심사거부건 도움 부탁합니다. [1] 돌팅 2018.10.06 39
2363 여러 Package 작성시 특정 유닛을 공유하는 방법 100jk 2018.10.05 13
2362 TMS FMX ZBar Reader 사용하신분 계시나요? 생각 2018.10.04 22
» FireDAC사용 쿼리하는 동안 진행중 표시 어떻게..? [2] 공감 2018.10.01 46
2360 IOS 12 대응에 관해서 [1] 돌팅 2018.10.01 51
2359 C++Builder 최신업데이트(30831)불구 Kinvey 푸시 토큰을 받지 못합니다. 개성산전 2018.10.01 25
2358 delphi 10.2.3 +Xcode 10 + IOS 12 환경에서 빌드시 왜 에라메세지가 뜨는지요? [1] file 화이부동 2018.09.26 62
2357 퀀텀그리드 이벤트 관련 문의드립니다. [1] BW 2018.09.19 58



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