Сортировка в dbgrideh с помощью sql запроса??????

[zimmion]

Подскажите плз как определить на каком столбце нажимается TitleBtn? По нажатию TitleBtn определенного столбца вызывается запрос реализующий сортировку:

Код:

procedure TForm_Contrag.DBGridEh1TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
if DBGridEh1.???????????????????? then
  begin
  with DM1.Query do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT *');
      SQL.Add('FROM jur');
      SQL.Add('ORDER BY j_id');
      Open;
    end;
  end;

if DBGridEh1.???????????????????? then
  begin
    with DM1.Query do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT *');
      SQL.Add('FROM jur');
      SQL.Add('ORDER BY j_kod');
      Open;
    end;
  end;

[RXL]

zimmion, догадаться, видимо, чрезвычайно сложно, уж не говоря о хелпах? Параметр ACol.

[zimmion]

Как один из вариантов, моно сделать следующий запрос по клику:

Код:

procedure TForm_Contrag.DBGridEh1TitleBtnClick(Sender: TObject;      
  ACol: Integer; Column: TColumnEh);      
begin      
  with DM1.Query do      
    begin      
      Close;      
      SQL.Clear;      
      SQL.Add('SELECT *');      
      SQL.Add('FROM jur');      
      SQL.Add('ORDER BY '+Column.FieldName);      
      Open;      
    end;      
  end;

[RXL]

Или метод Sort, если он есть у этой таблички. Не известно, что быстрее будет.