Pesquisa --gt; Pela Coluna Clicada no DBGRid lt;--

Question

Ol� galera, � o seguinte. Tenho uma tabela que pode ser feita pesquisa em 3 campos diferentes. Quero que ao clicar na coluna do dbgrid(nome, por exemplo) ela mude de cor da coluna e me passe um contro...

Massuda · Answer

Isso voc� precisa implementar em duas partes...[list:4ef5eeb6c3][*:4ef5eeb6c3]No evento TDBGrid.OnTitleClick voc� implementa a parte relacionada com ordena��o dos dados[*:4ef5eeb6c3]No evento TDBGrid.OnDrawColumnCell voc� implementa a parte relacionada com o desenho (o que inclui a cor) das colunas[/list:u:4ef5eeb6c3]Use uma vari�vel compartilhada entre as duas partes para saber qual coluna est� sendo usada para ordena��o.

Lucianobarreto · Answer

Blz.. vou tentar aqui.. qualquer coisa eu posto novamente..vlw...

Emerson Nascimento · Answer

fa�a tudo no OnTitleClick (desde que deseje realmente alterar a cor da [b:fb4199db34]coluna[/b:fb4199db34])

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var i: integer;
begin
  {altera a cor das colunas para o padr�o}
  for i := 0 to TDBGrid(Column.Grid).Columns.Count-1 do
    TDBGrid(Column.Grid).Columns[i].Color := clWindow;

  {altera a cor da coluna "clicada" para azul}
  Column.Color := $00FFEAD5;

  {vari�vel private para compartilhar com a rotina de pesquisa,
   como foi sugeriudo pelo massuda}
  CampoPesquisa := Column.FieldName;
end;

Massuda · Answer

[quote:b5180fa587=�emerson.en�]fa�a tudo no OnTitleClick (desde que deseje realmente alterar a cor da [b:b5180fa587]coluna[/b:b5180fa587])[/quote:b5180fa587]Tem raz�o... se for s� o desenho da coluna, n�o precisa se preocupar com o desenho das c�lulas individuais....

F�rum Pesquisa --gt; Pela Coluna Clicada no DBGRid lt;-- #297221