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

[alphaflight83]

Was funktioniert denn nicht?
Bei mir funktioniert 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:

Form1.Solution1.ActivePage := TabSheet2;

ist in diesem Fall gleichbedeutend mit
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?