Jackson Gomes - Tools&Comps wrote: >> Alguém sabe como faço para acessar um objeto dentro de um componente? > > Vc pode criar um componente herdado e criar um método que desabilite o seu > botão. > > type > TMeuComp = class(TMeuCompAnterior) > public > procedure DesabilitaBotao; > end; > > procedure TMeuComp.DesabilitaBotao > begin > MeuBotaoEscodido.Enabled := False; > end; > > var > Comp: TMeuCompAnterior; > begin > Comp := TMeuCompAnterior.Create(blablabla); > TMeuComp(Comp).DesabilitaBotao; > end;
Só funciona se a propriedade for protected, e se este for o caso, basta fazer um cast para uma friend class sem a necessidade de criar um novo método: type TJvScrollFriend = class(TJvScroll); ... begin TJvScrollFriend(OComponente).Button.Enabled := False; -- Joao Morais