DevExpress: выделение узла при раскрытии иерархии

[alexeik]

Подскажите, пожалуйста, как сделать так, чтобы при раскрытии иерархии нажатием на значок плюса в компонентах DevExpress TdxDBTreeView и TcxGrid выделялся бы раскрывающийся узел

[alexeik]

//для TdxDBTreeView
procedure ...TreeExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
TdxDBTreeView(Sender).Select(Node);
end;


//для cxGrid
procedure ...DataControllerDetailExpanding(
ADataController: TcxCustomDataController; ARecordIndex: Integer;
var AAllow: Boolean);
begin
inherited;
ADataController.CollapseDetails; // закрываем все открытые узлы
ADataController.ChangeFocusedRecord Index(ARecordIndex); // позиционируем датасет мастера на выбранный узел

end;