|
|
|
Junior Member
 
участник
Last Login: 15.12.2006 13:25
Сообщ.: 15,
Visits: 87
|
|
| У меня запрос долго выполняется, мне нужно, чтобы пользователь не пугался как-то обозначит что выполняется запрос, типа строки состояния что ли, либо как в виндовсе песочные часы отображать. Подскажите как это делается.
|
|
|
|
|
новичок
участник
Last Login: 06.07.2006 19:31
Сообщ.: 2,
Visits: 16
|
|
procedure CursorClock;
var OldCursor: TCursor;
begin
OldCursor:= Screen.Cursor;//сохранила старый курсор
Screen.Cursor:= crHourGlass;//покажим часики
Sleep(1000);
Screen.Cursor:= OldCursor;//через секунду курсор станет прежним
end;
Примерно так менять курсор.
|
|
|
|
|
Junior Member
участник
Last Login: 15.12.2006 13:25
Сообщ.: 15,
Visits: 87
|
|
| А подскажите как сделать курсор с движущимися часиками как в виндовс?
|
|
|
|