cxGrid Locate Focus

[veliadiguzel]

S.A.

herkese kolay gelsin. cxGridde bi sorunum oldu ama bir türlü çözemedim. Sorun
Bolum->AltBolum->Faaliyet->AltFaaliyet gibi bir master detail yapım var arama yaptırırken AltFaaliyete gore arama Yaptırıyorum ama cxgirdde o kayıt expand yapamıyorum
aşağıdaki kodla sadece ilk Bolum kısmı expand oluyo. cxGrid.FocusedView:=tvAltbolumler dediğim zaman o view focus olmuyo focus olmadıgı icin asagıdaki kodların kalan kısmı calısmıyor diye düşünüyorum
forumda bir arkadaş yapmış ama kodun içinden çıkamadım. (Arkadaşınki sadece master ve detail)

Teşekkürler.

Kod: Tümünü seç

procedure TfrmListe.cxTextEdit1PropertiesChange(Sender: TObject);
var
  R: TcxCustomGridRecord;
begin
  DM.dsetAltFaaliyetler.Locate('ID', cxTextEdit1.Text, [loPartialKey]);
  // Bolum
  DM.dsetBolumler.Locate('ID', dm.dsetAltFaaliyetler.FieldValues['BOLUM_ID'],
    [loCaseInsensitive]);
  if tvBolumler.Focused then
  begin
    R := tvBolumler.Controller.FocusedRecord;
    tvBolumler.ViewData.Records[R.Index].Expanded := True;
  end;
  // Alt Bolum
  DM.dsetAltBolumler.Locate('ID',
    dm.dsetAltFaaliyetler.FieldValues['ALT_BOLUM_ID'], [loCaseInsensitive]);
    cxGrid.FocusedView:=tvAltBolumler;
  if tvAltBolumler.Focused then
  begin
    R := tvAltBolumler.Controller.FocusedRecord;
    tvAltBolumler.ViewData.Records[R.Index].Expanded := True;
  end;
  // Faaliyet
  DM.dsetFaaliyetler.Locate('ID',
    dm.dsetAltFaaliyetler.FieldValues['FAALIYET_ID'], [loCaseInsensitive]);
  if tvFaaliyetler.Focused then
  begin
    R := tvFaaliyetler.Controller.FocusedRecord;
    tvFaaliyetler.ViewData.Records[R.Index].Expanded := True;
  end;
end;