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

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

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

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


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