PageControl auf anderem Formular steuern

[JKHero]

Moin Moin und erstmal frohen 4. Advent,

ich bräuchte Hilfe mit einer Formel:
Ich habe eine MainForm und darauf ein PageControl abgelegt. Die einzelnen Tabs der PageControl sind einfache "Lernkarten". zu jeder dieser Lernkarten soll nun eine Lösung entstehen. Folgendes habe ich dafür schon eingestellt. Auf jeder Karte ist ein Button, der die Lösung anzeigen soll. Die Lösung soll auf einem anderen Formular angezeigt werden. Das hab ich bereits mit "ShowModal" zusammengebastelt. Nun möchte ich aber alle meine Lösungen auf diesem Formualr unterbringen weswegen ich auch auf dieses Formular ein neues PageControl gelegt habe. Was muss ich nun Schreiben, damit ich in meiner MAIN.PAS die PageControl des Formulares steuern kann. Mit "Cards1.ActivePage := TabSheet1;" geht das nicht.
gibt es da ne Lösung???

Danke

[haentschman]

Moin zurück...

wie wäre es mit Form2.Cards1.ActivePageIndex := dein gewünschter Index ?

[JKHero]

Joa, er zeigt mir zumindest schonmal keinen Fehler an. Allerdings öffnet er immer nur den gleichen Tab, obwohl in der PAS unterschiedliche Tabs stehen. Habe die Buttons auch schon überprüft, ob vielleicht das gleich drin steht. is aber nicht der Fall

[haentschman]

Zeig doch mal ein wenig Code. Wie rufst du was von wo auf... Sonst machen wir hier noch bis Weihnachten lustiges Beruferaten :zwinker:

[alphaflight83]

Was funktioniert denn nicht?
Bei mir funktioniert

Delphi-Quellcode:

FormResults.PageControl.ActivePage := FormResults.TabSheet3;

ohne Probleme.

[JKHero]

ich füg das mal direkt ein, da er anscheinend procedure etc nicht übernimmt.


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

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

Die Aktionen der Buttons sind auch schon überprüft und müssten auch stimmen.

[DeddyH]

Zitat:

Delphi-Quellcode:

Form1.Solution1.ActivePage := TabSheet2;

ist in diesem Fall gleichbedeutend mit

Delphi-Quellcode:

Form1.Solution1.ActivePage := self.TabSheet2;

Das dürfte ja nicht das sein, was Du beabsichtigst.

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

[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 :zwinker:

[JKHero]

Ne, hab ich gesehen. Aber die Mischung machts ;)