thaita Novato

Registrado: Sábado, 26 de Novembro de 2022 Mensagens: 44
|
Enviada: Sex Set 01, 2023 3:53 pm Assunto: RESOLVIDO - Como Mudar os Títulos das colunas do DBGrid |
|
|
Pessoal,
Criei o procedimento abaixo, para mudar os títulos das colunas do DBGrid, e no evento On Show do Formulário entrei com o procedimento, mas esta dando um erro "Argument out of range". Alguém pode me ajudar. A tabela é listada também no evento ON SHOW-> FPessoa.Listar(Datasource1);
MudaTituloColuna;
procedure TPageCadastroPessoa.MudaTituloColuna;
begin
// dbgrid1.columns(0).Caption="Código" ;
// dbgrid1.columns(0).Width=1000;
// dgrid1.columns(0).Alignment = 'dbgCenter ' ;
DBGrid1.Columns[0].Title.Caption := 'Código';
DBGrid1.Columns[1].Title.Caption := 'Tipo de Pessoa';
DBGrid1.Columns[2].Title.Caption := 'Nome';
DBGrid1.Columns[3].Title.Caption := 'Data Nasc.\Reg.';
DBGrid1.Columns[4].Title.Caption := 'CPF\CNPJ';
DBGrid1.Columns[5].Title.Caption := 'Cidade';
DBGrid1.Columns[6].Title.Caption := 'Bairro\Distrito';
DBGrid1.Columns[7].Title.Caption := 'Estado';
DBGrid1.Columns[8].Title.Caption := 'Telefone';
DBGrid1.Columns[9].Title.Caption := 'E-mail';
DBGrid1.Columns[10].Title.Caption := 'Ativo';
DBGrid1.Columns[11].Title.Caption := 'Início Contrato';
DBGrid1.Columns[12].Title.Caption := 'Fim Contrato';
end;
PODEM ME AJUDAR??????? |
|