At 09:14 AM 7/11/2003 +0000, you wrote:

>How do I effectively kill the hourglass-cursor you're getting for
>instance when doing a
>while not query.eof do
>begin
> ....
> query.next;
>end;
>
>I want to set my own constant hourglass-cursor before my loop, but
>IBO sets it's own cursor during next - resulting in an irritatating
>flashing cursor, which also slows down the process unless you move
>the mouse outside the application.

var
SavedCursor: SmallInt;
with query do begin
with ib_session do begin
UseCursor := True;
SavedCursor := BusyCursor;
BusyCursor := MY_CUSTOM_CURSOR; // smallint constant declared somewhere
end;
try
BeginBusy(True);
<do your stuff>;
finally
EndBusy;
BusyCursor := SavedCursor;
end;

Helen

>René / SSV
>
>
>
>___________________________________________________________________________
>IB Objects - direct, complete, custom connectivity to Firebird or InterBase
> without the need for BDE, ODBC or any other layer.
>___________________________________________________________________________
>http://www.ibobjects.com - your IBO community resource for Tech Info papers,
>keyword-searchable FAQ, community code contributions and more !
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/