Как поменять курсор разом для всех элементов приложения?

Форум — Ответы ( К темам )

? Борт707: Как поменять курсор разом для всех элементов приложения? (26-03-2003 12:59:31)
На время длительной операции меняю курсор в форме на "часики".
Однако вид курсора меняется только над самой формой (ее пустыми местами),
а над дочерними элементами (кнопками, строками ввода и тд) — остается прежним.
Можно ли задать курсор сразу и для формы и для всех элементов на ней?.
Дима
Владимир (26-03-2003 20:11:04)

Можно обойти в цикле все дочерние элементы формы
и установить в них свойство Cursor в нужное значение,
а можно определить свойство Cursor для объекта Screen, например так:

Screen->Cursor = crHandPoint;

а потом вернуть в нужное значение
в Help-e есть вот такой пример:

TCursor Save_Cursor = Screen->Cursor;

Screen->Cursor = crHourGlass; // Show hourglass cursor

try
{
// Do some lengthy operation
}
__finally
{
Screen->Cursor = Save_Cursor; // always restore the cursor
}

?	Борт707: Как поменять курсор разом для всех элементов приложения? (26-03-2003 12:59:31)
На время длительной операции меняю курсор в форме на "часики". Однако вид курсора меняется только над самой формой (ее пустыми местами), а над дочерними элементами (кнопками, строками ввода и тд) — остается прежним. Можно ли задать курсор сразу и для формы и для всех элементов на ней?. Дима
Владимир (26-03-2003 20:11:04)
Можно обойти в цикле все дочерние элементы формы и установить в них свойство Cursor в нужное значение, а можно определить свойство Cursor для объекта Screen, например так: Screen->Cursor = crHandPoint; а потом вернуть в нужное значение в Help-e есть вот такой пример: TCursor Save_Cursor = Screen->Cursor; Screen->Cursor = crHourGlass; // Show hourglass cursor try { // Do some lengthy operation } __finally { Screen->Cursor = Save_Cursor; // always restore the cursor }