Criar CxGrid em Tempo de Execução

Delphi

11/04/2012

Alguem sabe como criar um cxGrid em tempo de excução? estou tentando com o codigo abaixo mais ainda nao consegui funcionar.

var
objGrafico : TcxGrid;
objChartView : TcxGridChartView;
objLevel : TcxGridLevel;
begin

objGrafico := TcxGrid.Create(self);
objGrafico.Parent := self;
objGrafico.Name := GridGrafico;

objChartView := TcxGridChartView.Create(objGrafico);
objChartView.Repository := objGrafico;
objChartView.DiagramColumn.Active := True;

objLevel := TcxGridLevel.Create(objGrafico);
// objLevel.Parent := objGrafico;
//jGrafico.LevelTabs.Assign(objLevel);
objGrafico.ActiveLevel := objLevel;
// objLevel.GridView := objChartView;

objCon := TcxPivotGridChartConnection.Create(self);
objCon.PivotGrid := objGridCubo;
objCon.GridChartView := objChartView;

Alvaro Jinkings

Alvaro Jinkings

Curtidas 1

Melhor post

Alvaro Jinkings

Alvaro Jinkings

13/04/2012

Ai a resposta pra que precisar... com uma ajuda do amigo willian galleti :)

procedure TForm1.cxButton1Click(Sender: TObject);
var
grid : TcxGrid;
level : TcxGridLevel;
view : TcxGridDBChartView;
begin
grid := TcxGrid.Create(Self);
grid.Parent := Self;
grid.Name := gridAnimals;
grid.Align := alClient;
level := grid.Levels.Add;
level.Name := Level1;

view := grid.CreateView(TcxGridDBChartView) as TcxGridDBChartView;
view.Name := Grafico;
level.GridView := view;
view.DataController.DataSource := DataSource1;

view.CreateSeries;
view.DiagramLine.Active := True;
end;
GOSTEI 1
POSTAR