ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть проблемка...
2 сообщений из 2, страница 1 из 1
Есть проблемка...
    #32305737
AndreyBond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyBond
Гость
Вывожу на экран модальное окно, так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
if not assigned (frmAddClient) then
  frmAddClient:=tfrmAddClient.Create(self);
try
  frmAddClient.showmodal;
finally
  FreeAndNil(frmAddClient);
end;

В procedure frmAddClient.FormActivate(Sender: TObject) есть такие строчки....
Код: plaintext
1.
2.
3.
4.
5.
6.
Screen.Cursor:=crHourGlass;
Application.ProcessMessages;
try
  .............какие-то операции............
finally
  Screen.Cursor:=crDefault;

И проблема такая.....
Если во время появления окна курсор мышки попал на это новое окно, то всё в порядке, курсор меняется, а если форма появилась не под курсором мыши, но курсор был на форме, вызывающей модальную, то не меняется он, я так понимаю, что sсreen это глобальныйобьект??? В чём может быть дело...
...
Рейтинг: 0 / 0
27.10.2003, 10:46
| Ответить | Цитировать | Написать  
Есть проблемка...
    #32306313
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
В frmAddClient во второй строке напиши: Update .
А то у тебя .............какие-то операции............ блокируют перерисовку.

Или ProcessMessages добавь в .............какие-то операции............



eNose
...
Рейтинг: 0 / 0
27.10.2003, 15:55
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть проблемка...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]