Como acessar um objeto dentro de um componente?

07/07/2008

1

Olá pessoal....

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

Estou usando o componente [b:765b361a81]TJvScrollMax[/b:765b361a81] da JEDI.
Dentro desse componente é colocado outro, o [b:765b361a81]TJvScrollMaxBand[/b:765b361a81] (é uma banda do estilo QReport), mas não se trata de componente de impressão.

Dentro do [b:765b361a81]TJvScrollMaxBand[/b:765b361a81] tem um botão (FButton) o mesmo é protegido, eu uso muitos componentes [b:765b361a81]TJvScrollMaxBand[/b:765b361a81] e cada um deles tem o mesmo botão e eu quero acessar somente o botão de apenas um [b:765b361a81]TJvScrollMaxBand[/b:765b361a81] 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:

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

Posts

07/07/2008

Onjahyr

Já consegui resolver, editei o próprio fonte do componente e implementei uma propriedade ButtonEnabled. Funcionando legal...

Blz.


Responder