Acessando as Properties de uma Coluna de grid

Objetivo

O objetivo deste documento é auxiliar o usuário a acessar as propriedades distintas das colunas criadas usando TcxGridColuna bem como as colunas já existentes na tela.

Uso

Para acessar as propriedades de cada coluna será necessário adicionar no Uses do script a unit correspondente:

Unit : cxCheckBox para tipos Logicos(Boolean), tipo da propriedade TcxCheckBoxProperties;
Unit : cxTextEdit para tipos Texto(String), tipo da propriedade TcxTextEditProperties;
Unit : cxCalc para tipos Inteiro(Integer) e Numero (Float,Double), tipo da propriedade TcxCalcEditProperties;
Unit : cxCalendarpara tipos DataHora e Data, tipo da propriedade TcxDateEditProperties;
Unit : cxMaskEdittipos Hora, tipo da propriedade TcxMaskEditProperties;
Unit : cxButtonEdit para tipos ButtonEdit, tipo da propriedade TcxButtonEditProperties;
Unit : cxDropDownEdit para tipos Combo(Lista), tipo da propriedade TcxComboBoxProperties;

Exemplo

Colunas criadas dinamicamente:

Uses
   Graphics, Controls, StdCtrls, CxGridCol, Menus, DB, 
   cxTextEdit, 
   cxCheckBox,
   cxCalc, 
   cxCalendar, 
   cxMaskEdit,
   cxButtonEdit,
   cxDropDownEdit;
                                                                           
var                            
   Coluna1   : TcxGridColuna;
   Coluna2   : TcxGridColuna; 
   Coluna3   : TcxGridColuna;
   Coluna4   : TcxGridColuna;
   Coluna5   : TcxGridColuna;
   Coluna6   : TcxGridColuna;                
   Coluna7   : TcxGridColuna;
   
   CheckProp      : TcxCheckBoxProperties;
   EditProp       : TcxTextEditProperties;                    
   CalEditProp    : TcxCalcEditProperties;                                           
   DateEditProp   : TcxDateEditProperties;
   MaskEditProp   : TcxMaskEditProperties;   
   ButtonEditProp : TcxButtonEditProperties;    
   ComboBoxProp   : TcxComboBoxProperties;
                                                                   
begin                                                  
   Coluna1 := TcxGridColuna.Create(FCustoParcela.ViewFormaPagamento, 'Boolean', 'Boolean', 0, 'FormaPgto');
   CheckProp := TcxCheckBoxProperties(Coluna1.Coluna.Properties);
                        
   Coluna2 := TcxGridColuna.Create(FCustoParcela.ViewFormaPagamento, 'Texto', 'Texto', 5, 'FormaPgto');
   EditProp := TcxTextEditProperties(Coluna2.Coluna.Properties);
                                                                   
   Coluna3 := TcxGridColuna.Create(FCustoParcela.ViewFormaPagamento, 'Inteiro', 'Inteiro', 5, 'FormaPgto');
   CalEditProp := TcxCalcEditProperties(Coluna3.Coluna.Properties);
                                    
   Coluna4 := TcxGridColuna.Create(FCustoParcela.ViewFormaPagamento, 'DataHora', 'DATAHORA', 5, 'FormaPgto');
   DateEditProp := TcxDateEditProperties(Coluna4.Coluna.Properties);
   
   Coluna5 := TcxGridColuna.Create(FCustoParcela.ViewFormaPagamento, 'Hora', 'HORA', 5, 'FormaPgto');
   MaskEditProp := TcxMaskEditProperties(Coluna5.Coluna.Properties);
   
   Coluna6 := TcxGridColuna.Create(FCustoParcela.ViewFormaPagamento, 'EditBotao', 'BUTTONEDIT', 5, 'FormaPgto');
   ButtonEditProp := TcxButtonEditProperties(Coluna6.Coluna.Properties);
     
   Coluna7 := TcxGridColuna.Create(FCustoParcela.ViewFormaPagamento, 'Combo', 'COMBO', 5, 'FormaPgto');
   ComboBoxProp := TcxComboBoxProperties(Coluna7.Coluna.Properties);
   
   // Exemplo de outras propriedasdes que podem ser acessadas
   Coluna7.Coluna.HeaderHint := 'Mouse sobre a coluna';   
   Coluna7.Coluna.VisibleForCustomization := False;
   Coluna7.Coluna.Options.Moving := False;
   
end;

Colunas já existentes no form:

                                                                       Uses
   Graphics, Controls, StdCtrls, CxGridCol,Menus, DB, 
   cxTextEdit;

var
   EditProp : TcxTextEditProperties;

begin                                                  
   EditProp := TcxTextEditProperties(FNomeDoForm.ViewExemploCOLUNA.Properties);
   EditProp.OnChange := 'Teste';                                                                                     
   EditProp.CharCase := ecUpperCase;  
end;