[gelöst] PageControl ActivePage zur Laufzeit ändern

[kralle]

Moin,

ich möchte zur Laufzeit die Aktive Seite eines PageControls ändern.
Die Variable die ich dafür nutzen will, habe ich so initialisert:

Code: Alles auswählen

  ChangeActivePage: String = 'Tab01_Allgemein';   

Die erste Wertzuweisung erfolgt so:

Code: Alles auswählen

procedure TFrameAllgemein.FrameExit(Sender: TObject);
begin
      Datenmodul.ChangeActivePage:= 'Tab01_Allgemein' ;
end;  

Und hier soll der Wechsel ausgeführt werden:

Code: Alles auswählen

procedure TMainForm.PageControlExit(Sender: TObject);
begin
  Pagecontrol.ActivePage := Datenmodul.ChangeActivePage;
end;

Bei kompilieren bekomme ich schon beim Initialisieren folgende Fehlermeldung:

Code: Alles auswählen

 
Projekt kompilieren, Modus: Default, Ziel: linux/sdg: Exit code 256, Fehler: 2
DatenModul.pas(27,3) Error: Identifier not found "Tab01_Allgemein"
DatenModul.pas(27,45) Error: Illegal expression
 

Weiß ich an der stelle der Variablen noch keinen Wert zu, bekomme ich bei der Nutzung einen Fehler:

Code: Alles auswählen

Projekt kompilieren, Modus: Default, Ziel: linux/sdg: Exit code 256, Fehler: 1, Hinweise: 19
main.pas(159,56) Error: Incompatible type for arg no. 1: Got "AnsiString", expected "TTabSheet"
 

Aber, die Variable als "TTabSheet" deklarieren, geht auch nicht.

Das kann doch nicht so schwer sein, dem PageControl zur Laufzeit die aktive Seite zu benennen.
Im Objektinspektor funktioniert es funktioniert es ja auch.

Wo ist schon wieder mein Denkfehler?

Gruß Heiko

[theo]

Steht ja da. ActivePage ist kein String sondern ein TTabSheet.

Ich blicke nicht, was du da machen willst, aber so kann man die Seite z.B. über den Index wählen:

Code: Alles auswählen

 
PageControl1.ActivePage:=PageControl1.Pages[2];  

[wp_xyz]

Code: Alles auswählen

PageControl1.ActivePageIndex := 2;  // Tab mit dem Index 2 (3.Tab) nach vorne holen
// oder:
PageControl1.ActivePage := PageControl.Pages[2];
// oder:
PageControl1.ActivePage :=Tab01_Allgemein;  // Wenn Tab01_Allgemein der Name eines Tabs ist ("Name", nicht "Caption")
// oder:
for i:=0 to PageControl1.Count-1 do
  if PageControl1.Pages[i].Caption = 'Allgemein' then
  begin
    PageControl.ActivePageIndex := i;
    break;
  end;
 

[kralle]

Moin,

Ich blicke nicht, was du da machen willst,

Ich möchte den Anwender so lange auf einer Seite festhalten, bis er bestimmte TEdit-Felder ausgefüllt hat.

aber so kann man die Seite z.B. über den Index wählen:

Code: Alles auswählen

 
PageControl1.ActivePage:=PageControl1.Pages[2];  

Ich werde das jetzt über den Index machen.
Über den Namen, hätte ich es nur verständlicher gefunden.
Jetzt kommt halt ein vernüpftiger Kommentar in den Quellcode.

Gruß Heiki

[wp_xyz]

Moin,
Ich möchte den Anwender so lange auf einer Seite festhalten, bis er bestimmte TEdit-Felder ausgefüllt hat.

Dazu musst du nur das Ergebnis OnChanging des PageControl abfangen und den Parameter AllowChange auf false setzen.

Ich werde das jetzt über den Index machen.
Über den Namen, hätte ich es nur verständlicher gefunden.

Mein Code oben zeigt dir, wie du das über den Namen des TabSheets machen kannst (wiegesagt, den Namen, nicht die Caption, die am Reiter eingetragen ist)

[kralle]

Moin,

Dazu musst du nur das Ergebnis OnChanging des PageControl abfangen und den Parameter AllowChange auf false setzen.

Genau das war das was ich gesucht habe. Danke.

Gruß Heiko