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..

← →
Shaman_Naydak © (2002-03-12 18:34) [1]

Не поверишь, не поленился повторить - все работает :)
D5

← →
zzz (2002-03-12 18:46) [2]

2Shaman_Naydak ©
Ты не поверишь, я не поленился сделать все тоже самое еще раз - НЕ РАБОТАЕТ !! :(
То есть когда делаю райт-клик на Form2 - в PopupMenu Item Ctrl-A надписи нету.. - соотв не работает и данная комбинация клавиш..

У меня тоже D5

Или я дурак или одно из двух :)))

А ты не поленись, и в ShotCut поставь "+" вместо "-" ("Ctrl+A")

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