Как в dbgrideh получить имя поля той колонки, по заголовку которой Вы щелкнули????

[zimmion]

Подскажите плз как в dbgrideh получить имя поля той колонки, по заголовку которой Вы щелкнули????? По нажатию 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;

[Stilet]

Ну наверное ж Column.FieldName

[zimmion]

Как именно записать условие

if ????=???? then

которое бы указывало имя поля той колонки, по заголовку которой Вы щелкнули???

[Stilet]

Фухххх. Включаю телепатор: Итак ты хочеш по щелчку по заголовку колонки сортировать по ней? так?? Если да то:

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;

Этот код будет охватывать все колонки, это при условии что в DBGridEh есть такое свойство.

[zimmion]

Действительно, все отлично работает. Спасибо большое!!!