Как проще всего изобразить индикатор сортировки в гриде(треугольничек) ?
Использую сетку RxDBGrid.

Вообще-то конечно лучше всего использовать TDBGridEh, где это все уже есть. Замена TDBGrid-a не займет много времени.

Ну а если все же хочется, то самый простой способ - это в Title.Caption колонки, поставить символ "V".

Скажи, Pegas, поскольку юзаешь TDBGridEh, то приходилось ли тебе наталкиваться на ошибки этого грида, может глюки где лезут или он работает стабильно и безупречно.
В общем, я о минусах этого компонента.

Вообщем TDBGridEh полностью удовлетворяет моим требованием и работает хорошо. Но правда по началу работы с ним, у меня возникла одна проблема, это скорее даже нельзя назвать ошибкой, скорее неудобство которое проявляется при добавлении нескольких FooterColumns. Я уже точно не помную, в чем именно у меня заключалась проблема, но слава богу он поставляется с исходниками, и что-либо исправить у меня не состовило труда.
И еще, одно, если используется сортировка, то в SQL запросе предложение ORDER BY должно быть отдельной строчкой. У себя я исправил данный недочет, и когда разговаривал с автором этого компоненты, мы с ним обсуждали эту проблему, я обещал выслать ему свой код, но правда руки так и не дошли, а потом уже и забыл.

Ну вот собственно и все о минусах (если это можно так назвать) этого компонента. Но в общем мнение об этом компоненте у меня положительное. Я его использую в качестве замены стандартному TDBGrid, и пока не жалуюсь.

Спасибо :-)

А вот и решение нашел :-)

Индикатор сортировки в гриде RxDBGrid

var
sortField:string; // имя поля, по которому сортируем
sortDir:boolean; // направление индикатора: True-вниз, False-вверх

...
procedure TForm1.RxDBGrid1GetBtnParams(Sender: TObject; Field: TField;
AFont: TFont; var Background: TColor; var SortMarker: TSortMarker;
IsDown: Boolean);
begin
if (LowerCase(Field.FieldName)=LowerCase(sortField)) then
if sortDir then SortMarker:=smDown else SortMarker:=smUp;
end;

procedure TForm1.RxDBGrid1TitleBtnClick(Sender: TObject; ACol: Integer;
Field: TField);
begin
if (LowerCase(Field.FieldName)=LowerCase(sortField)) then sortDir:=not sortDir
else begin
sortField:=Field.FieldName;
sortDir:=false;
end;
// тут помещу код для сортировки НД в query по полю sortField
// ...
end;

procedure TForm1.FormShow(Sender: TObject);
begin
sortDir:=True;
sortField:='age';
end;