Ich habe dir mal deine Code etwas umgeschrieben, so dass du in der Caption des Formulars siehst,
was gerade passiert.
Delphi-Quellcode:
procedure TForm2.TreeView1Change(Sender: TObject; Node: TTreeNode);
ver
newindex:integer;
begin
if TreeView1.Selected <> nil then
begin
newindex := TreeView1.Selected.Index;
self.Caption := Format('Debug-Info: newindex=%d ', [newindex])+ TimeToStr(now);
PageControl1.ActivePageIndex := newindex; // es geht auch ohne case...of
end;
Du solltest mal schauen, ob ein Veränderung des PageControls nicht vielleicht das TreeView ändert
-> rückkopplung möglich
Hast du einen Timer auf dem Form ?