자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi FireDAC사용 쿼리하는 동안 진행중 표시 어떻게..?

2018.10.01 22:22

공감 조회 수:600

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

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

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

 

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

 

메인폼에서 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;

 

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

감사합니다.

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 19434
공지 유용한 관련 사이트 관리자2 2014.03.20 58347
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 101853
1199 볼랜드포럼에서 논의가 되고 있는 C++11 32비트의 Exception코드 문제 [1] 더스틴 2015.09.16 604
1198 애플앱 등록 방법문의 드립니다. [2] silkroad99 2015.06.24 605
1197 xe10.2 사용자 입니다. interface not supported 오류에 대해서?? [1] 쿠핑 2018.11.27 605
1196 퀀텀그리드 이벤트 관련 문의드립니다. [1] BW 2018.09.19 606
1195 윈도우 키오스크에서 손가락으로 TImage 의 Canvas에 선 그리는 방법 [1] file 미스터몽키 2021.04.19 606
1194 XE8 작업진행중 프로그래스 표시 [1] 가을이다 2015.09.22 607
1193 VCL로 프로그램을 작성해서 버튼을 배치했는데, 실행된 상태의 화면에서 마우스로 버튼을 끌어서 옮길수 있는지 [1] 관리자 2015.02.12 607
1192 설정, 로그인, 비번 등의 정보를 설정할 수 있는 기능이 필요합니다. [2] 시작하기 2019.02.15 608
1191 TMemo 한글처리 문제 [1] file 라운지 2015.10.06 608
1190 FDMemTable 를 Query 로 읽기 [1] 송동진 2017.05.06 609
1189 델파이에서 POST방식으로 IE 새창 호출 [1] 델파이PHP초보 2019.10.11 609
1188 wsd프린트 자동포트 설치 시 출력이 안됨. 난난난난난 2020.05.27 609
1187 [세미나: 데이터와 RAD] REST 클라이언트의 DataSetAdapter에서 XML을 다룰 수 있나요? [1] 험프리 2020.06.24 609
1186 현재 연결되어있는 USB장치의 이름 가져오기 [1] 박군80 2017.07.26 610
1185 [공유] 10.2 도쿄에서 리본컨트롤을 찾을 수 없습니다. file 험프리 2017.05.12 613
1184 적외선 리모컨 앱을 만들고 싶습니다 [1] 박군80 2017.09.21 614
1183 피드백 부탁드립니다. [1] 최민철 2015.01.29 614
1182 [질문] QuickReport로 작성된 리포트를 FastReport로 conversion 하려 합니다. [1] michael 2016.08.08 615
1181 ListBox Item Style내부 색상변경 [2] 박군80 2016.05.24 616
1180 xe7으로 안드로이드앱 ble통신을 하고 있는중입니다. [1] 아기사랑 2015.07.09 618
쓰기
태그