Buscar por:

Colocar o dbgrid em ordem do titulo clicado

Código

{Ordena a DbGrid de acordo com o Titulo Clicado}

procedure Tconscli.gradeprocessosTitleClick(Column: TColumn);

var

campo:string;

begin

campo:=column.fieldname; // CAMPO RECEBE O NOME DA COLUNA CLICADA,

application.processmessages; // para considerar algo que aconteça no dbgrid durante a entrada nesta procedure

qrCLIENTES.sql.clear; // LIMPA A QUERY

qrCLIENTES.sql.add('select * from div1 order by '+campo); // ESCREVE O SELECT COM O ORDER BY

if not QRCLIENTES.Prepared then

QRCLIENTES.Prepare;

QRCLIENTES.Open; // ABRE A QUERY COM A ORDEM ESCOLHIDA.

End;

column.Font.color:=clblue; // COLOCAR A COLUNA NA COR DESEJADA