MainMenu - ActionList , замена свойства Caption
NKT © (2007-08-14 16:41:00)
Добрый день господа !
Есть MainMenu , при клике на пункт 1 , 2 и т.д. выполняется
одно и то же действие , чтобы не обрабатывать у каждого
пункта меню, использую ActionList .
Необходимо , чтобы свойство Caption менялось :
with Sender as TMenuItem do begin
case Tag of
1:Action7.Caption := 'AAAAAA';
2: Action7.Caption := 'DDDDDDD';
end;
end;
на строке with Sender as TMenuItem do begin
выдает ошибку : Invalid class typecast .
В чем причина ?
Всем спасибо .
MBo (2007-08-14 16:44:00) [1]
>В чем причина ?
В том, что Sender - TAction
см. TAction.ActionComponent
Наверх 
ЧАТ |
Орешник |
|
