Hourglass in dbExpress

Posted on 2005-05-11
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

    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 ;-)
    LVL 1

    Author Comment

    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?

    Write Comment

    Please enter a first name

    Please enter a last name

    We will never share this with anyone.

    Featured Post

    How to run any project with ease

    Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
    - Combine task lists, docs, spreadsheets, and chat in one
    - View and edit from mobile/offline
    - Cut down on emails

    Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
    Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
    Need more eyes on your posted question? Go ahead and follow the quick steps in this video to learn how to Request Attention to your question. *Log into your Experts Exchange account *Find the question you want to Request Attention for *Go to the e…
    In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

    737 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

    Need Help in Real-Time?

    Connect with top rated Experts

    21 Experts available now in Live!

    Get 1:1 Help Now