Acessando as Properties de uma Coluna de grid
- John Charles Da Silva (Unlicensed)
- Josue Goulart
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 : cxCalendar para tipos DataHora e Data, tipo da propriedade TcxDateEditProperties;
Unit : cxMaskEdit para tipos 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;