Ver Mensaje Individual
  #1  
Antiguo 10-12-2014
osmeg osmeg is offline
Miembro
NULL
 
Registrado: may 2014
Posts: 18
Reputación: 0
osmeg Va por buen camino
Access violation at address al agregar TButtonCategory en TCategoryButtons

Buenas noches a todos,

Estoy utilizando uno de los componentes VCL disponible en Delphi, el componente TCategoryButtons. Mi intención es crear un componente TCategoryButton, dentro de este agregar varias categorias del tipo TButtonCategory, y finalmente en este último agregar TButtonItems.

Aparentemente todo funciona a la perfección porque el componente y sus derivados realizan su función. Sin embargo, siempre aparece el error: "Access violation at address ... in module ... Read of address 00000000X" y no entiendo porqué.

El código que estoy utilizando es el siguiente:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Panel: TPanel;
    procedure PanelClick(Sender: TObject);
  private
  seccionBotones: TCategoryButtons;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PanelClick(Sender: TObject);
var
    categoria:TButtonCategory;
    boton: TButtonItem;
begin

seccionBotones:= TCategoryButtons.Create(Panel);
seccionBotones.Parent:= Panel;

categoria:=seccionBotones.Categories.Add;
categoria.Caption:= 'Categoria 1';

boton:= categoria.Items.Add;
boton.Caption:='Boton'

end;

end.
Agradezco de antemano algún aporte que los usuarios del clubdelphi puedan realizar para la solución de este problema.
Responder Con Cita