Pagecontrol verschieben und Benutzereinstellungen lesen und speichern

[v2afrank]

Ich habe hier ein Programm bei dem dynamisch in einem Pagecontrol verschiedene Tabs erzeugt werden.
Diese werden nach einem Neustart der Anwendung auch ordentlich wiederhergestellt. Nun kam der Wunsch bei den Usern auf die Reihenfolge der Tabs zu verschieben. Das habe ich auch mit dem Tipp von hier hinbekommen. Nun hänge ich daran die Einstellungen des User zu lesen. Ich bin einfach mal davon ausgegangen nach dem erzeugen des Pagecontrols alle Pages durchzulaufen und den Tabindex zu setzen.Frei nach ddieser Funktion

Delphi-Quellcode:

for n := 0 to PageControl1.PageCount - 1 do
 begin
   PageControl1.Pages[n].Pageindex:=readinteger(…..
 end;

Das Ende vom Lied war aber dass weder die Indizes richtig waren noch der Inhalt. Falls gewünscht mache ich morgen gerne mal ein kleines Beispielprogramm fertig, aber vielleicht hat ja schon so jemand eine Idee wo die Ursache liegt

[Hobbycoder]

Wäre es nicht einfacher erst die Benutzereinstellung zu lesen, und dann gleich in der richtigen Reihenfolge die Tabs zu erstellen?

[Sherlock]

Was Hobbycoder schrieb.

Sherlock

[dummzeuch]

Zitat von v2afrank:

Ich bin einfach mal davon ausgegangen nach dem erzeugen des Pagecontrols alle Pages durchzulaufen und den Tabindex zu setzen.Frei nach ddieser Funktion

Delphi-Quellcode:

for n := 0 to PageControl1.PageCount - 1 do
 begin
   PageControl1.Pages[n].Pageindex:=readinteger(…..
 end;

Das Ende vom Lied war aber dass weder die Indizes richtig waren noch der Inhalt. Falls gewünscht mache ich morgen gerne mal ein kleines Beispielprogramm fertig, aber vielleicht hat ja schon so jemand eine Idee wo die Ursache liegt

Das kann nicht funktionieren, denn die Indices, auf die Du in der FOR-Schleife zugreifst, ändern sich ja innerhalb der Schleife. Du müsstest Dir die TabControls vorher in ein Array speichern und dann die FOR-Schleife ueber das Array laufen lassen. (und selbst das kann schiefgehen, da das Setzen des Index für einen Tab vermutlich die Indices für die anderen Tabs anpasst).

[v2afrank]

Zitat von Hobbycoder:

Wäre es nicht einfacher erst die Benutzereinstellung zu lesen, und dann gleich in der richtigen Reihenfolge die Tabs zu erstellen?

Ja wäre es und ist auch wäre auch so umzusetzen, allerdings habe ich zwei feste Pages die von Anfang an dabei sind.

[v2afrank]

Ich habe jetzt auch einmal ein kleines Beispiel erstellt und hochgeladen.
Die entscheidende Stelle ist hier:

Delphi-Quellcode:

procedure TForm1.restoreLayout;
var
  ini: TIniFile;
  n: Integer;
  numberOfSheets: Integer;
begin
  ini := TIniFile.Create(extractfilepath(paramstr(0)) + 'Layout.ini');
  numberOfSheets := ini.ReadInteger('Common', 'NumberOfSheets',
    PageControl1.PageCount);
  for n := 1 to numberOfSheets - 2 do//zwei Feste Tabs
  begin
    createSheet;
  end;
  for n := 0 to PageControl1.PageCount do
   PageControl1.Pages[n].PageIndex:=ini.ReadInteger('Order', 'PageControl' + PageControl1.Pages[n].Name,
      PageControl1.Pages[n].PageIndex);
  ini.Free;
end;

Dabei bekomme ich allerdings eine Listenindex überschreitet das Maximum Meldung



Vergesst es. Ist zu früh. Der Index muss natürlich bis PageCount-1 laufen und dann funktioniert es auch wie erwartet. Ich habe ursprünglich immer den Fehler gemacht und bin nicht über den Namen des Sheets gegangen sondern über Pages[n]. Das ist natürlich schwierig. Der Namen ist ja dafür da ein Element eindeutig zu kennzeichnen. Ich hoffe im Anhang ist jetzt die funktionierende Version

[Sherlock]

Deine untere Schleife da sollte nur bis Pagecount-1 gehen.

So gut wie alles ist 0 basiert zu zählen.

Sherlock

[v2afrank]

Ja absolut richtig. Hatte ich auch in meinem editierten Text geschrieben