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

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

А что в "Клубе программистов" все спять ???

procedure TMyForm.cxViewDataControllerDetailExpanding(ADataController: TcxCustomDataController; ARecordIndex: Integer;var AAllow: Boolean);
begin
  ADataController.CollapseDetails;
  ADataController.ChangeFocusedRecordIndex(ARecordIndex);
  ShowDetails.Execute;// переоткрываем детализацию
end;

//для 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.ChangeFocusedRecordIndex(ARecordIndex); // позиционируем датасет мастера на выбранный узел

end;

Зачем повторять то что я написал тремя часами раньше ? Зачем городить и dx и cx вместе ?