...nun ja, wenn ich mal viel Zeit habe.
...ich habe das nun so gelöst:
Delphi-Quellcode:
procedure TDMallgemein.AufrufEinstellungen(Seite: Integer);
var TempIndex: Integer;
begin
case Seite of
1: TempIndex:= 0; //Allgemein
2: TempIndex:= 1; //Anlagenschema
3: TempIndex:= 8; //Filterart
4: TempIndex:= 9; //Filtergröße
5: TempIndex:= 10; //Filterqualität
6: TempIndex:= 2; //Anschlüsse
7: TempIndex:= 3; //Bezeichnungen Technische Daten
8: TempIndex:= 17; //Terminplaner
9: TempIndex:= 7; //externe Formulare
10: TempIndex:= 5; //Drucken
11: TempIndex:= 18; //Vorlagen Tätigkeiten
12: TempIndex:= 15; //Nummernkreise
13: TempIndex:= 14; //Monteure
14: TempIndex:= 13; //Lieferanten
15: TempIndex:= 11; //Hersteller
16: TempIndex:= 6; //Einheiten
17: TempIndex:= 19; //Wartungsart
18: TempIndex:= 16; //Serviceart
19: TempIndex:= 12; //Kältemittel
20: TempIndex:= 4; //Brandklassen
end;
FEinstellungen.JvPageListTreeView1.Items[TempIndex].Selected:= True;
end;
- die Seite bleibt gleich
- nach Hinzufügen einer Einstellung per Quellcode (grundsätzlich manuell) brauche ich nur einmal den TempIndex anzupassen, da alle Aufrufe die Seite wählen.
- eigentlich eine einfache Lösung. Zwar nicht ganz automatisch, aber ich habe die Änderungen nur an einer Stelle und nicht quer Beet durch die
Unit´s.
Trotzdem Danke und noch einen schönen Tag...