Форум: "Базы";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];

Вниз

TAction and Shortcuts   Найти похожие ветки 

← →
zzz   (2002-03-12 13:18) [0]

Создали ActionList на Form1, добавили в него Action1 в OnExecute написали ShowMessage("Test")
Бросили на форму PopupMenu1, добавили Item
Action:=Action1
ShortCut:=ctrl-A

Form1.PopupMenu:=PopupMenu1

Запускаем приложение, жмем ctrl-A - OnExecute работает

Добавлем форму Form2, бросаем PopupMenu2, добавляем Item
Action:=Form1.Action
ShortCut:=ctrl-A

Form2.PopupMenu:=PopupMenu2

Запускаем приложение, делаем Form2.Show, жмем ctrl-A - OnExecute НЕ работает !!!???

Как решить проблему ??
Прописывать ShortCut для TAction нельзя - нужна привязка к конкретному контролу..

Заранее thanks..

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c