![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Client |
![]()
Сообщение
#1
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: ![]() ![]() ![]() |
Привет!
Я хочу из всплывающего меню (на скрине) изменять размер шрифта в мемо. procedure TForm1.PopupMenu1Change(Sender: TObject; Source: TMenuItem;Выдает ошибку сразу при запуске. Как тут быть? Эскизы прикрепленных изображений ![]() |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата Выдает ошибку сразу при запуске. Правильно делает. У тебя в момент создания меню (а OnChange вызывается именно в момент создания, или при переформировании меню, а не при щелчке на его элементе) Source = nil со всеми вытекающими последствиями. Лови TMenuItem.OnClick для каждого их пунктов меню и делай то, что тебе надо:procedure TForm1.N101Click(Sender: TObject);, всем остальным пунктам назначь этот же обработчик... |
![]() ![]() |
![]() |
Текстовая версия | 12.07.2025 2:36 |