Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ... / 9 сообщений из 9, страница 1 из 1
29.10.2019, 17:26
    #39882846
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Приветствую,

до сих пор пользовался хаком: если нужно было что-то сделать в тот момент, когда форма загружена и видна , то помещал этот код в обработчик OnActivate формы (с выставлением флага для защиты от повторных активаций).

Но это событие не срабатывает, если форма лежит на другом контроле (через .Parent := ...).

Событие OnShow не подходит, тогда формы еще не видно.

Событие WM_PAINT не отрабатывает, если форма полностью закрыта другими контролами. Без них не проверял т.к. нужно именно с полным закрытием.


Что посоветуете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 17:30
    #39882849
ёёёёё
ёёёёё
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Кроик Семён,

пробежаться вверх по паренту и добавить свой код в ОнАктивате самого верхнего парента?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 17:35
    #39882851
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Кроик СемёнЧто посоветуете?

PostMessage(WM_USER) и делай в его обработчике всё, что в голову взбредёт.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 17:38
    #39882854
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Оба совета про добавление чего-то в вызывающую форму.
А только лишь силами событий (или перегруженных методов) встраиваемой формы можно решить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 17:45
    #39882858
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Кроик СемёнОба совета про добавление чего-то в вызывающую форму.

С чего бы вдруг? PostMessage работает в OnShow поскольку к этому моменту хэндл уже создан.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 17:47
    #39882859
Michael Longneck
Michael Longneck
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
У меня есть такой метод ExecIdle(Action: TProc); Он один раз исполняет свой метод в OnIdle. Позволяет в процессе обработки какой-то "отложить" на её завершение какие-то действия. Я бы в OnShow вызвал свой ExecIdle и к моменту когда всё появилось на экране оно бы исполнилось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 17:50
    #39882864
ёёёёё
ёёёёё
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Кроик СемёнОба совета про добавление чего-то в вызывающую форму.
А только лишь силами событий (или перегруженных методов) встраиваемой формы можно решить?
Какого "добавления"?
ОнАктивате - это ж ридрайт свойство, считай на лету текушее значение да замени ни два вызова - старый ОнАктивэйт парента плюс ОнАктивэйт твоей формы. Все в коде твоей формы, например, в ее конструкторе или ОнКриэйт обработчике...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 17:57
    #39882868
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Dimitry SibiryakovКроик СемёнОба совета про добавление чего-то в вызывающую форму.

С чего бы вдруг? PostMessage работает в OnShow поскольку к этому моменту хэндл уже создан.

У меня возникают трабблы с отрисовками TPngObject на канве если её еще не видно. Даже если проверяю PaintBox.Canvas.HandleAllocated(). Не знаю, где там собака в недрах кода этих TPngObject зарыта, но всё нормально равотало если начинал это делать после OnActivate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2019, 18:50
    #39882885
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
Спасибо за советы. Решил проблему отложенной отрисовкой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ... / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 461ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2038896]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 157ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 210ms
total:  461ms
x
x
Закрыть


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