PageControl auf anderem Formular steuern

[Bummi]

Form1.Solution1.ActivePage := Form1.TabSheet2;

[JKHero]

Version 1.0 heißt es schon

Aber das Form1. nach Active Page hat nichts geändert. es wird nach wie vor bei beiden aktionen tabshee1 angezeigt...

[DeddyH]

Also, unter Delphi 2007 funktioniert das hier bei mir. Hast Du evtl. übersehen, dass Du ActivePage erst setzt, wenn das Form2 bereits angezeigt wurde, d.h. die Änderung erst beim erneuten Aufruf von Show(Modal) zum Tragen kommt?

[JKHero]

Das hört sich schonmal nach dem problem an was ich habe. Muss ich dann einfach beim ersten Button das ActivePage rausnehmen? Dann zeigt er mir nämlich ne Fehler an...

Ich könnte es glaub ich auch mit "SelectNextPage". machen, dann kann man aber die einzelnen Lernkarten nicht mehr mit ihren entsprechenden Lösungen aufrufen.

[Medium]

Das wird das letzte Stückchen zum Ziel sein, denn ShowModal blockiert die Ausführung in der aufrufenden Methode so lange das Modale Fenster geöffnet ist.

Und nein, an sich musst du einfach nur die jeweils 2 Zeilen miteinander tauschen.

[JKHero]

hab die zeilen vertauscht und es klappt immer noch nicht. Muss ich die Form "speziell" schließen? Eigentlich reicht doch auf das rote x zu drücken.....?!

[DeddyH]

Das heißt, es sieht jetzt ungefähr so aus?

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  frmTabTest.pcTest.ActivePage := frmTabTest.TabSheet1;
  frmTabTest.ShowModal;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  frmTabTest.pcTest.ActivePage := frmTabTest.TabSheet2;
  frmTabTest.ShowModal;
end;

Klappt bei mir erwartungsgemäß super. Hast Du evtl. noch Code im OnShow des anderen Formulars, der ActivePage ggf. noch einmal ändert?

[JKHero]

Delphi-Quellcode:

procedure TMainForm.Button26Click(Sender: TObject);
begin
 Form1.Solution1.ActivePage:= TabSheet1;
 Form1.ShowModal;
end;

procedure TMainForm.Button32Click(Sender: TObject);
begin
 Form1.Solution1.ActivePage := TabSheet2;
 Form1.ShowModal;
end;

ich denk mal da tut sich nicht viel bei meiner.....