Изменение курсора

← →
mouse_web (2004-08-19 10:54) [0]

При обращении к базе данных у меня курсор меняется с обычной стрелочки на плоские песочные часы с надписью sql.
Как заменить курсор на стандартные песочные часы?

← →
Соловьев © (2004-08-19 11:01) [1]

Screen.Cursor := crHourGlass;

← →
mouse_web (2004-08-19 11:05) [2]

А на какое событие нужно ставить?

← →
Соловьев © (2004-08-19 11:07) [3]

> При обращении к базе данных

← →
Iconka © (2004-08-19 11:07) [4]

Может перед Query.Open?

← →
Sandman25 © (2004-08-19 11:12) [5]

Session.SQLHourGlass := false
или что-то подобное

← →
mouse_web (2004-08-19 12:03) [6]

Очень странно но не работает :(
ни один из вариантов [1] [4]

← →
Соловьев © (2004-08-19 12:06) [7]

> Очень странно но не работает :(

врешь. у меня работает.

← →
mouse_web (2004-08-19 12:09) [8]

Ставлю
Screen.Cursor := crHourGlass;
на событие
RxQuery1BeforeOpen
и не пашет

← →
Соловьев © (2004-08-19 12:13) [9]

Так...Т.е. к Ацесу лезим через БДЕ? Ужас. Бери ADO.
Но даже если БДЕ, то
> [5] Sandman25 © (19.08.04 11:12)

уже сказал, а я бы добавил такую еще версию:

OnClick:

Screen.Cursor := crHourGlass;
try
RxQuery1.Open;
finally
Screen.Cursor := crDefault;
end;

← →
Sandman25 © (2004-08-19 12:18) [10]

[9] Соловьев © (19.08.04 12:13)

Нет, он не врет. Недавно был такой же вопрос на форуме, ничто другое не помогало

crDefault тоже не совсем верно, правильнее сохранять старое значение и его восстанавливать.

> Нет, он не врет. Недавно был такой же вопрос на форуме,
> ничто другое не помогало

вроде вспомнил....да..ну тогда твой вариант+мой для установки курсора:)

> crDefault тоже не совсем верно, правильнее сохранять старое
> значение и его восстанавливать.

да. и + это тоже. :)

← →
mouse_web (2004-08-19 12:38) [13]

поставил я [9]
не работает...

> поставил я [9]

опять в том же событии?

← →
mouse_web (2004-08-21 20:42) [15]

я ставил изменение курсора и на открытие RxQuery.Open
и на событие RxQuery.BeforeOpen
не меняется курсор :(

Изменение курсора Найти похожие ветки