ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
9 сообщений из 9, страница 1 из 1
Чем заменить OnActivate формы, если она прикреплена к контролу через .Parent := ...
    #39882846
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
Приветствую,

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

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

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

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


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

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

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

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

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

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


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