Screen or Application Cursor

mmalinow · Post by **mmalinow** » Mon 20 Jun 2011 19:36

Hello,

Using dbExpress driver for Oracle (Direct) with Delphi 2010. During TSQLQuery execution, does the driver display an hourglass cursor?

Thank you,
Mike M

AlexP · Post by **AlexP** » Tue 21 Jun 2011 08:36

Hello,

To make cursor change to crHourGlass on query, stored procedure etc execution, you can use the following code:

Code: Select all

var
  Save_Cursor: TCursor;
begin
  try
    Save_Cursor := Screen.Cursor;
    Screen.Cursor := crHourGlass;
    SQLQuery1.ExecSQL();
  finally
    Screen.Cursor := Save_Cursor;
 end;

mmalinow · Post by **mmalinow** » Tue 21 Jun 2011 12:14

Hello Alex,

I apologize for the way my question was worded. I am seeing an hourglass cursor while some TSQLQuery objects are executing inside of a Delphi TThread object. I was wondering if the Devart objects were causing the cursor to change because I am not explicitly changing the cursor. Because the queries are running in a separate thread, I actually don't want the user to see the cursor change at that time.

Thank you,
Mike M

AlexP · Post by **AlexP** » Tue 21 Jun 2011 14:10

hello,

Please send a small sample demonstrating the problem to alexp*devart*com, because I was not able to reproduce the situation with automatic changing of the cursor appearance to HourGlass on opening SQLQuery.