1:
2:
3:

{ alle Profildatensätze ausklappen }
if s then tvProfilTB.DataController.Groups.FullExpand else
          tvProfilTB.DataController.Groups.FullCollapse;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

try
 { alle Profildatensätze einmal durchlaufen }
 iProfileRecords := tvProfilTB.DataController.DataSetRecordCount;
 i := 1;
 { zunächst auf das erste Profil positionieren }
 tvProfilTB.DataController.GotoFirst;
 while i <= iProfileRecords do
 begin
   { dann den Detailsatz des Profils ausklappen und }
   tvProfilTB.Controller.FocusedRecord.Expanded := s;

   { Hier wollte ich irgendwie die Views wechseln }
   { es sieht so aus, als ob die Detaildatensätze }
   { nicht ausklappen, weil der Fokus sozusagen   }
   { nicht auf dem Detaildatensätzen liegt.       }
   { Klappt aber nicht:                           } 
   cxTagebuch.FocusedView := tvTagebuch;
   { ... die Tagebuchdatensätze gruppiert nach Datum }
   if s then tvTagebuch.DataController.Groups.FullExpand else
             tvTagebuch.DataController.Groups.FullCollapse;
   cxTagebuch.FocusedView := tvProfilTB;
   { bis hier }

   { das nächste Profil }
   tvProfilTB.DataController.GotoNext;
   Inc(i);
 end;    // while
 tvProfilTB.DataController.GotoFirst;
finally
 { wieder die Eingabeelemente aktivieren }
 DIAProfile.EnableControls;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

try
  { alle Profildatensätze ausklappen }
  if s then tvProfilTB.DataController.Groups.FullExpand else
            tvProfilTB.DataController.Groups.FullCollapse;

  { alle Tagebuchdatensätze ausklappen }
  for i := 0 to tvTagebuch.CloneCount - 1 do
    if s then tvTagebuch.Clones[i].DataController.Groups.FullExpand else
              tvTagebuch.Clones[i].DataController.Groups.FullCollapse;
finally
  { wieder die Eingabeelemente aktivieren }
  DIAProfile.EnableControls;
end;