[delphi-br] Como acessar um objeto dentro de um componente?

Mon, 07 Jul 2008 04:58:49 -0700 

Olá pessoal....

Alguém sabe como faço para acessar um objeto dentro de um componente?

Estou usando o componente "TJvScrollMax" da JEDI.
Dentro desse componente é colocado outro, o "TJvScrollMaxBand" (é uma
banda do estilo QReport), mas não se trata de componente de impressão.

Dentro do "TJvScrollMaxBand" tem um botão (FButton) o mesmo é
protegido, eu uso muitos componentes "TJvScrollMaxBand" e cada um
deles tem o mesmo botão e eu quero acessar somente o botão de apenas
um "TJvScrollMaxBand" e não de TODOS. Então queria capturar exatamente
esse botão.

Para quem tem o JEDI instalado, copie o código do objeto abaixo e
coloque no form que verá de qual componente eu estou falando:

==> Veja que posso deixar ele visivel ou não, mas no meu caso eu quero
apenas desabilitá-lo. Para deixar invisível:

ButtonVisible = False


============================================

object JvScrollMax1: TJvScrollMax
  Left = 22
  Top = 40
  Width = 360
  Height = 181
  ButtonFont.Charset = DEFAULT_CHARSET
  ButtonFont.Color = clWindowText
  ButtonFont.Height = -9
  ButtonFont.Name = 'Small Fonts'
  ButtonFont.Style = []
  AutoHeight = False
  ScrollBarVisible = False
  BevelOuter = bvNone
  ParentColor = True
  TabOrder = 1
  object JvScrollMaxBand33: TJvScrollMaxBand
    Width = 354
    Height = 125
    Caption = 'Papel de Parede'
    ExpandedHeight = 125
    ButtonVisible = True
    ButtonFont.Charset = ANSI_CHARSET
    ButtonFont.Color = clWindowText
    ButtonFont.Height = -11
    ButtonFont.Name = 'Arial'
    ButtonFont.Style = [fsBold]
    Beveled = False
    BorderWidth = 4
    ParentBeveled = False
    ParentButtonVisible = False
    ParentButtonFont = False
    OnDblClick = JvScrollMaxBand1DblClick
  end
end

===============================================

Este componente ao clicar no botão (o qual quero capturar) ele expande
a aba em runtime, quero deixar este botão desabilitado, mas não sei
como acessar ele.

Responder a