Neue Seite mit TPageControl

[Pflaumi]

Hallo,
gibt es ein procedure oder ein Funktion mit dem/der man im PageControl eine neue Seite öffnen kann?

[hoika]

Hallo,
zur Laufzeit?

http://docs.embarcadero.com/products...geControl.html

Pages -> dort rein

Unter Description ist sowohl Laufzeit als auch Designzeit erklärt.

[peterbelow]

Zitat:

Zitat von Pflaumi (Beitrag 1434652)

Hallo,
gibt es ein procedure oder ein Funktion mit dem/der man im PageControl eine neue Seite öffnen kann?

Ja, aber es ist ein Bißchen von hinten durch die Brust ins Auge, nicht einfach sowas wie

Delphi-Quellcode:

LTab := pagecontrol1.Pages.Add; 

var
  LTab: TTabsheet;
begin
  LTab:= TTabsheet.Create(self); // self = form oder so
  LTab.Pagecontrol := pagecontrol1;

[gast2019]

Zitat:

Zitat von Pflaumi (Beitrag 1434652)

Hallo,
gibt es ein procedure oder ein Funktion mit dem/der man im PageControl eine neue Seite öffnen kann?

willst du tatsächlich eine neue seite öffnen (=erstellen?) oder nur eine bereits vorhandene anzeigen lassen?

IMHO gibts da kleine unterschiede.

[Pflaumi]

Ja,
ich möchte eine neue Seite ERSTELLEN.
Ich hab schon probiert einfach ein paar mehr Seite von Anfang an zu erstellen und dann dass alles mit
Show und Hide machen, aber Delphi zeigt die Seiten trozdem an.

PS: Wie man schon vorhandene Seiten wechselt weiß ich auch. :wink:

[Heuman]

Hallo,

würde

Tabsheet.visible=false
und
TabVisible=false

nicht reichen.

Gruß

[Pflaumi]

Hab's grad ausprobiert, klappt nicht.
Und was ist TabVisible?
Da spuckt Delphi immer diese Fehlermeldung aus: Undefinierter Bezeichner "TabVisible" .

[DieDolly]

Zitat:

Hab's grad ausprobiert, klappt nicht.

Man muss auch ein bisschen mitdenken ;)

[Heuman]

Hallo,
laut Delphi Hilfe

property Pages[Index: Integer]: TTabSheet

Nachdem man eine neue Seite der PageControl hinzugefügt hat

entweder im ObjectInspecor das gewollte Tabsheet anwählen

oder zu Laufzeit z.B. so

PageControl1.Pages[0].TabVisible:=false;
PageControl1.Pages[0].Visible:=false;

Gruß

[TurboMagic]

Zitat:

Zitat von Pflaumi (Beitrag 1434705)

Hab's grad ausprobiert, klappt nicht.
Und was ist TabVisible?
Da spuckt Delphi immer diese Fehlermeldung aus: Undefinierter Bezeichner "TabVisible" .

Etwas Code von dir wäre schon hilfreich gewesen um rauszufinden, wo du TabVisible := False aufrufen wolltest.
Das muss natürlich für den entsprechenden Tab aufgerufen werden und nicht das PageControl. Oh und wenn ich mich recht erinnere, würde das nur den tab oben verstecken nicht dan Tab als solches. Also doch eher visible des Tabs benutzen.

Die andere Methode mit dem dynamischen hinzufügen funktioniert aber ganz sicher.
Ich hab' ein Programm, dass erzeugt jede Menge Tabs zur Laufzeit, die haben alle
keinen Reiter oben und es ist auch immer nur einer sichtbar...

=> ggf. Code posten!

Grüße
TurboMagic

[EWeiss]

Sorry aber du hast absolut keine Ahnung was du überhaupt machst.

Das ist kein Vorwurf sondern eine Hilfestellung versuch doch erst mal einen Button auf die Form zu klatschen
und damit zu experimentieren was man damit machen kann, was Events sind usw.. so macht das keinen sinn.

Wenn du das verstanden hast dann weist du auch was TabVisible ist.

gruss

[TurboMagic]

Ich weiß schon was ich tune, nur hatte ich da gerade keine IDE als Gedächtnisstütze verfügbar:

Visible eines TTabSheed steuert, ob dieser Reiter angezeigt wird oder nicht
TabVisible des TTabSheets steuert, ob der Reiter, falls er sichtbar ist, einen Reiter oben
hat den man anklicken kan um diesen tab zu aktivieren. Ist das False wird kein Tab oben
angezeigt, das TabSheet selbst (und damit auch sein Inhalt) kann aber sehr wohl gerade
sichtbar sein.

Was glaubst du, wie ich seit Jahr und Tag Assisteten programmiere?
TabVisible jeweils aus und mittels Button dann jeweils den nächsten in der Situation
relevanten Tab als aktiven gesetzt (PageControl.ActivePage := ...).

Grüße
TurboMagic

[DieDolly]

Zitat:

Zitat von TurboMagic (Beitrag 1434725)

Ich weiß schon was ich tune, nur hatte ich da gerade keine IDE als Gedächtnisstütze verfügbar:

Ich glaube EWeiss meinte damit nicht dich sondern den TE.

[EWeiss]

Zitat:

Zitat von DieDolly (Beitrag 1434728)

Zitat:

Zitat von TurboMagic (Beitrag 1434725)

Ich weiß schon was ich tune, nur hatte ich da gerade keine IDE als Gedächtnisstütze verfügbar:

Ich glaube EWeiss meinte damit nicht dich sondern den TE.

Ja Bitte nicht falsch auffassen. Ich meinte den THREAD Ersteller..
Siehe!

Zitat:

Hab's grad ausprobiert, klappt nicht.
Und was ist TabVisible?
Da spuckt Delphi immer diese Fehlermeldung aus: Undefinierter Bezeichner "TabVisible" .

Ich kann doch nicht mit einem Rennwagen fahren wenn ich nicht einmal den GOGO beherrsche.

Deshalb soll er sich einmal den Button anschauen und davon lernen was Events sind.

gruss

[Andreas13]

Hallo Felix,
da Dir wirklich die Grundlagen der Delphi-Programmierung zu fehlen scheinen, möchte ich Dir einige recht brauchbare und nützliche Fachbücher (passend zu Deiner Delphi 7- Version) zum Lernen und Nachschlagen empfehlen, damit Du evtl. vorhandene Defizite ausbessern kannst:
1):
Borland Delphi 7 - Grundlagen, Profiwissen, Kochbuch. Das umfassende Handbuch für die Win32-Anwendungsentwicklung, m. CD-ROM Gebundenes Buch – 3. Mai 2007
von Walter Doberenz (Autor), Thomas Gewinnus (Autor)
https://www.amazon.de/Borland-Delphi...s=books&sr=1-1

2):
Grundkurs Programmieren mit Delphi: Systematisch programmieren lernen für Einsteiger Taschenbuch – 5. September 2016
von Wolf-Gert Matthäus (Autor)
https://www.amazon.de/Grundkurs-Prog...685812&s=books

3):
Jetzt lerne ich Delphi - Ausgabe 2004: Der einfache Einstieg in Object Pascal - aktuell bis Delphi 8 Taschenbuch – 1. Mai 2004
von Thomas Binzinger (Autor)
https://www.amazon.de/Jetzt-lerne-ic...s=books&sr=1-1

Viel Erfolg bei der Lektüre & dem Studium!
Gruß
Andreas

[Andreas13]

Felix,
Du kannst auch noch ein kostenloses E-Book von www.delphi-treff.de herunterladen:
https://www.delphi-treff.de/downloads/e-book/

Gruß
Andreas

[Pflaumi]

Ich hab's so gemacht:

Code:

procedure TForm1.Button4Click(Sender: TObject);
begin
  Tabsheet1.Visible := false;
  PageControl1.TabVisible := false;
end;

Jetzt hab ich gelesen, dass die Option zum TabSheet gehört (hab mich davor schon gewundert welche
Option das ist) und hab es so gemacht:

Code:

procedure TForm1.Button4Click(Sender: TObject);
begin
  TabSheet1.Visible := false;
  TabSheet1.TabVisible := false;
end;

Klappt! :-D

[hoika]

Hallo,
wenn du jetzt noch Tabsheet1 und Button4 durch sinnvollere Namen ersetzt ;)

[DeddyH]

Genau, ts1 und btn4 :mrgreen:

[TurboMagic]

Zitat:

Zitat von EWeiss (Beitrag 1434730)

Ja Bitte nicht falsch auffassen. Ich meinte den THREAD Ersteller..

Ok, sorry, für mein Missverständnis. Die Thread Zusammenhänge sieht man in diesem Forum manchmal nur im Baum und auch das ist manchmal hakelig.

NNTP wär' halt schon schön... ;-)

Grüße und schönen Abend
TurboMagic

[Delbor]

Hi Pflaumi

Zitat:

Code:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
  TabSheet1.Visible := false;
  TabSheet1.TabVisible := false;
end;

Klappt!

Ja, tut es mit Sicherheit - nur nimm es mir nicht übel, aber das ist etwa wie mit Kanonen auf Spatzen geschossen.

Delphi-Quellcode:

TabSheet1.Visible := false;

Das macht das Tabsheet unsichtbar, auch dessen Reiter (Tab).

Delphi-Quellcode:

TabSheet1.TabVisible := false;

Das Tabsheet kann Visible sein, verfügt aber über keinen Reiter mehr. Auf diese Weise realisiere ich Weiter-Dialoge.

Gruss
Delbor