Форум — Ответы     (  К темам )
 ?  Борт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
}