Hallo Leute, ich habe folgendes Problem:
Jedes mal wenn ich mein Anwendung starte, springt das Programm automatisch auf TabSheet2 auch wenn ich ein anderes anwähle, wechselt das nach ner Sekunde wieder zurück! Und ich finde den Fehler nicht! Im ganzen Code finde ich nichts mit Tabsheet2 oder AktivePageIndex, was darauf hindeuten kann!
Ich habe lediglich eine TreeView und eine Pagecontrol.
Und je nach dem wo ich in die TreeView klicke wird eine der 6 Tabsheets aufgerufen:
Delphi-Quellcode:
procedure TForm2.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if (TreeView1.Selected <> nil)then
case TreeView1.Selected.Index of
0 : PageControl1.ActivePageIndex := 0;
1 : PageControl1.ActivePageIndex := 1;
2 : PageControl1.ActivePageIndex := 2;
3 : PageControl1.ActivePageIndex := 3;
4 : PageControl1.ActivePageIndex := 4;
5 : PageControl1.ActivePageIndex := 5;
end;
end;