Board index » delphi » Screen.Cursor

Screen.Cursor


2003-10-01 06:45:08 AM
delphi252
Is there anyway of making this automatically done? as the TQuery (BDE) does?
Or do I have to call Screen.Cursor := before and after each
open/active/execSQL statement?
Thanks,
Dan
 
 

Re:Screen.Cursor

if you really wanted to , you could code a function like this
SQLOpen(vQueryObject : tADODataset) : boolean
begin
screen.cursor := crHourGlass;
vQueryObject.open;
screen.cursor := crDefault;
end;
then every where you want to open an ado dataset you could
ds.close;
ds.commandtext := "what ever sql statement';
SQLOpen(ds);
etc
blah;
fribbitz;
oscar;
*******************************************
or do 2 procs. 1 that turns hourglass on, one to turn it off and then on
every query object,
set the beforeopen event to execute proc1 and the afteropen event to exec
proc2
*****************************************
or probably 12 other ways the Shiv knows