Форум: "Основная";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];
Вниз
MainMenu - ActionList , замена свойства Caption Найти похожие ветки
← →
NKT (2007-08-14 16:41) [0]Добрый день господа !
Есть 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) [1]>В чем причина ?
В том, что Sender - TAction
см. TAction.ActionComponent
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.10.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c
