Board index » delphi » Changing cursor to hourglass while opening Query?

Changing cursor to hourglass while opening Query?

Screen.Cursor := crHourglass;

try
  Query.Open;
finally
  Screen.Cursor := crDefault; ( or whatever cursor you're using )
end;

Quote
Paulo Nunes wrote in message <89cjvi$g...@bornews.borland.com>...
>How can I change the cursor to HourGlass While a query is opening?

>thanks.

 

Re:Changing cursor to hourglass while opening Query?


Add this around the .Open call:

try
  Screen.Cursor := crHourglass;
  MyQuery.Open;
finallly
  Screen.Cursor := crDefault;
end;

Paul / ColumbuSoft

Quote
Paulo Nunes <l11...@alunos.uevora.pt> wrote in message

news:89cjvi$gbu2@bornews.borland.com...
Quote
> How can I change the cursor to HourGlass While a query is opening?

> thanks.

Re:Changing cursor to hourglass while opening Query?


How can I change the cursor to HourGlass While a query is opening?

thanks.

Other Threads