Вопрос № 71169: Добрый день, уважаемые Эксперты!
Есть такой абстрактный код :))
Procedure Form1.Button1Ckick(Sender: TObject);
Begin
Form1.Cursor:=crHourGlass;
ShowMessage('HourGlass');
Form1.Cursor:=crDefault;
End;
Почем...
Вопрос № 71.169
Добрый день, уважаемые Эксперты!
Есть такой абстрактный код :))
Procedure Form1.Button1Ckick(Sender: TObject);
Begin
Form1.Cursor:=crHourGlass;
ShowMessage('HourGlass');
Form1.Cursor:=crDefault;
End;
Почему при появлении окна сообщения курсор над формой Form1 остается в виде стрелочки? Ведь должно быть в виде песочных часов?
Отвечает: sir henry
Здравствуйте, Дмитрий Александрович!
Потому что функция ShowMessage() выдает модальное окно, не нажав на кнопку которого доступа к другим окнам Вы не получите. У окна MessageBox курсор обычный, а у Form1 в виде часов. Однако поскольку к Form1 доступа нет, то нет доступа и к его курсору.
Для проверки уберите Form1.Cursor:=crDefault; из Вашей функции в OnClose формы и тогда увидите, что у формы курсор часы.
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 16.01.2007, 11:42
