Zitat von
sx2008:
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;
Danke, sehr freundlich! Allerdings ändert da nicht viel. Er tauscht zwar wieder kurzzeitig die Page, springt dann jedoch wieder zurück behält aber die alte Caption!
Also geh ich mal davon aus, das es an der PageControl liegt, allerdings ist da das einzige Ereigniss:
Active Page Index = TabSheet1
Ich hab auch mal die Reihenfolge der Items des TreeViews geändert bringt aber auch nichts, springt immer wieder auf die selbe Seite! (TabSheet2)
Zitat von
sx2008:
Hast du einen Timer auf dem Form ?
Ja, sogar 3 Stück, die haben aber nichts mit der TreeView bzw PageControl zu tun!