procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
Column: TColumnEh);
begin
with Column do
begin
if FieldName = '' then Exit;
dxMemData1.SortedField := Column.FieldName;
case Title.SortMarker of
smNoneEh: Title.SortMarker := smDownEh;
smDownEh: dxMemData1.SortOptions := [soDesc];
smUpEh: dxMemData1.SortOptions := [];
end;
end;
end;
Column: TColumnEh);
begin
with Column do
begin
if FieldName = '' then Exit;
dxMemData1.SortedField := Column.FieldName;
case Title.SortMarker of
smNoneEh: Title.SortMarker := smDownEh;
smDownEh: dxMemData1.SortOptions := [soDesc];
smUpEh: dxMemData1.SortOptions := [];
end;
end;
end;