[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now


Hourglass in dbExpress

Posted on 2005-05-11
Medium Priority
Last Modified: 2010-04-05
Hello all,

I´m migrating a BDE application to dbExpress and I need a way to show the hourglass when a query is being executed (like the BDE do today). The customer does not accept the program without the hourglass.

It must be showed on all queries in the program, and is impossible for us now to put code in all units to conclude that.

Is there a configuration in the dbExpress, or anything else I can do to make a little change and show the hourglass during the queries?

Regards,... and sorry for my newbie english.

Question by:Noturno
LVL 27

Accepted Solution

kretzschmar earned 500 total points
ID: 13978943
you could use the beforeOpen-event to set the cursor and the afterOpen to set the cursor back like

procedure TForm1.SQLDataSet1BeforeOpen(DataSet: TDataSet);
  screen.Cursor := crHourGlass;

procedure TForm1.SQLDataSet1AfterOpen(DataSet: TDataSet);
  screen.Cursor := crDefault;

meikl ;-)

Author Comment

ID: 14094646
Thanks for the answer and sorry for the time spent to give a feedback.

I need a way to change the entire program without put Before/After Open on all Dataset´s (There are very, very, very, very Dataset´s there).

The TSQLConnection has a property SQLHourGlass: Boolean; wich I set to True in the Start of the program, but it´s not working.

I´m trying to create another component based on the TSQLConnection, wich change the Screen.Cursor when the Dataset execute an SQL select instructions, but I don´t know what method I should override.

Can someone give me a little light about these last strategies?

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…
Loops Section Overview
Suggested Courses
Course of the Month18 days, 15 hours left to enroll

834 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question