powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как изменить курсор у заблокированной формы?
9 сообщений из 9, страница 1 из 1
Как изменить курсор у заблокированной формы?
    #39653189
WarlikeLaux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Из-за того, что я блокирую форму (Shadow.Enabled := False) у меня когда курсор мыши находится над этой формой не отображается курсор, которым я заменяю обычный курсор (Shadow.Cursor := 1), а отображается обычный системный курсор, это происходит именно из-за этого (блокирования формы), так как если не блокировать форму, то все норм, какой курсор поставил, такой и отображается, что можно сделать с этим? Это не основная причина если что, проблема вообще в том, что мне нужно запретить фокус на форму (Shadow это типо тень над основной формой, сделано это для Form2, которая играет роль меню, где есть кнопки продолжить, сохранить, загрузить и бла бла), если отправлять фокус на Form2 при фокусировке на форме Shadow, то происходит мерцание (обновление Form2), запретить нажатие кнопки мыши у меня что-то не получается даже обнулением переменной Button и оператором abort (делал это в процедурах OnClick и OnMouseDown), в общем, подскажите как можно реализовать то, что я хочу. Может можно разрешить движение мыши только в пределах какой-то одной единственной формы?
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653195
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Form.Enable не предлагать? И курсор нормально будет переключаться черезе Screen.Cursor.
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653196
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Зачем вам ТЕНЬ ?
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653197
WarlikeLaux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
JaDi, не помогает Screen,Cursor, из-за Form.Enabled никак не получается изменить курсор мыши на другой почему-то, даже через Screen.Cursor.
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653198
WarlikeLaux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DimaBr, типо главное меню, а основная форма покрываются тенью.
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653218
WarlikeLaux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вроде как разобрался (Shadow.Enabled := true), но все равно временами мелькает, можно как-то исправить или по-другому сделать?
Код: pascal
1.
2.
3.
4.
procedure TForm1.ShadowActivate(Sender: TObject);
begin
  Form2.Show;
end;
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653251
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
WarlikeLaux,

Сделать у меню FormState := fsStayOnTop (или как-то так), а у той в OnActivate() вместо .Show вызывать .BringToFront потом .SetFocus
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653259
WarlikeLaux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alekcvpWarlikeLaux,

Сделать у меню FormState := fsStayOnTop (или как-то так), а у той в OnActivate() вместо .Show вызывать .BringToFront потом .SetFocus

Результат такой же, как и просто при показывании формы через Form2.Show, все норм типо в принципе, но иногда все-таки мерцает.
...
Рейтинг: 0 / 0
Как изменить курсор у заблокированной формы?
    #39653267
WarlikeLaux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shadow.SendToBack решило все проблемы, всем спасибо!!!
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как изменить курсор у заблокированной формы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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