Artigos Delphi Quick Tips: Alterando a Posição das Colunas no DBGrid - Parte 1

Olá galera, segue mais uma Quick Tips, nesta iremos ver como mudar a ordem das colunas no dbGrid. Para isso vamos criar uma aplicação no Delphi.

Montando o exemplo

Monte uma DBGrid com 3 colunas, não há necessidade de usar acesso a dados, pois a mágica acontece apenas na DBGrid. Obvio que isso é meramente didático, na prática sua grid estará conectada a uma fonte de dados. Veja a figura abaixo uma sugestão de Layout:

Figura

Faça as seguintes declarações:

Na uses da sua Unit:


IniFiles;

Na seção private do Form:


arqIni: TiniFiles,
procedure CarregarFormato;
procedure GravarFormato;

Veja na figura com ficará no código do nossa form.

Figura

No evento onTitle do DBGrid, implemente o seguinte código da figura abaixo. Isto fará a troca de posição das colunas.

Figura

Para testar, rode a aplicação. Clique e arraste um coluna para esquerda ou direita e observe o resultado.