Indice Ascedente/Descendente

Question

Tenho um componente ClientDataSet que alimenta um DBGrid e consigo indexar as informa��es do ClientDataSet a partir do da coluna selecionada, mas eu gostaria de dar a op��o quando o usu�rio clicar na coluna se ele quer em ordem ascendente ou descente.
Como eu fa�o isto???

Desde j� agrade�o a ajuda de todos.

Massuda · Answer

[quote:3ceb527675=�Andre_Luis_c�]...mas eu gostaria de dar a op��o quando o usu�rio clicar na coluna se ele quer em ordem ascendente ou descente.Como eu fa�o isto???[/quote:3ceb527675]N�o sei se � isso que voc� queria, mas pode fazer como no Windows Explorer em modo Detalhes. Quando clica pela primeira vez numa coluna ordena ascendente, os cliques seguintes alternam entre ascendente/descendente, at� voc� clicar em outra coluna....

Andre_luis_c · Answer

Como eu fa�o para alternar indexa��o Ascendente/Descendente. no primeiro clique na coluna eu orderno ascendente no segundo clique descendente. No DBGrid....

Massuda · Answer

BD n�o � meu forte, por isso eu n�o saberia dizer de modo correto como mudar a indexa��o do ClientDataSet. Mas, quanto ao c�digo da interface com o usu�rio, ele poderia ser mais ou menos assim:

type
  TSeuForm = class(...
    ...
    procedure SeuGridTitleClick(Column: TColumn);
  private
    ColunaOrdenada: TColumn;
    ColunaAscendente: Boolean;

...

procedure TSeuForm.SeuGridTitleClick(Column: TColumn);
begin
  if Column = ColunaOrdenada then
    ColunaAscendente := not ColunaAscendente;
  else begin
    ColunaOrdenada := Column;
    ColunaAscendente := True;
  end;

  if ColunaAscendente then
    // ordenar a coluna ordem ascendente
  else
    // ordenar a coluna ordem descendente
end;

F�rum Indice Ascedente/Descendente #269193