привет

sclassname:=(FindComponent(dmmall.mdual.fieldbyname('langaction').AsString)).classname;

if sclassname='TBitBtn' then (FindComponent('NameButBtn') as TBitBtn).Caption:='блаблабла'; - этот и куча других компонентов работает без проблем

if sclassname='TTabSheet' then (FindComponent('NameTabSheet') as TTabsheet).Caption:='блаблабла'; - не работает
ошибка вот здесь (FindComponent('NameTabSheet') as TTabsheet).Caption как будтто нет компонента NameTabSheet. NameTabSheet - лежит на PageControl, создан статично в Delphi, не динамически в тексте

что за фигня? попытки привязать Form1. ... результата не дают

Спасибо

DimaBr,

есть, он создан не программно, а в самом Delphi и я уже специально сделал текстовую переменную, где вытаскиваю типы
sclassname:=(FindComponent(dmmall.mdual.fieldbyname('langaction').AsString)).classname;
можно вытаскивать имена
были Ribbon-ы, потом я решил уйти от них, причины разные, поставил PageControl и тут началось, сначала не понял, потом давай смотреть

if sclassname='TTabSheet' then - для всех сделал, получаю ошибку именно по TabSheet

у меня мысли такие, что где то Parent теряется, но в отладчике все на месте

(FindComponent('NameTabSheet') as TTabsheet).Caption

NameTabSheet - есть
FindComponent('NameTabSheet') as TTabsheet - находит

как ставлю свойство, например Caption, так тут же ошибка

DimaBr,


sclassname:=(FindComponent(dmmall.mdual.fieldbyname('langaction').AsString)).classname;

это имена компонентов из базы, они правильно выводятся .

тут все просто, есть визуальные компоненты, в зависимости от выбранного языка и компонента, заполняется Caption нужного языка

вот как раз при появлении имени TabSheet появилась ошибка

при том фишка, если тупо засунуть все в try except, то тот же Caption присваивается везде, кроме TTabSheet