PageControl auf anderem Formular steuern

[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.....

[DeddyH]

Und so?

Delphi-Quellcode:

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

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

[JKHero]

NICE!!!!!!!

habs mit zwei karten ausprobiert und bis jetzt läufts.

Herzlichen Dank

[DeddyH]

Da hast Du #7 und #8 wohl übersehen

[JKHero]

Ne, hab ich gesehen. Aber die Mischung machts