PageControll - Reiter automatisch erstellen

jUli@ · Beiträge: 61

Hallihallo!
ich brauche gaanz schnell hilfe.... und zwar möchte ich reiter (tabsheets) anzeigen... das funst auch wenn ich einen datensatz aus meiner datei anzeigen will... nun möchte ich aber.. wenn es mehrere sind das diese automatisch generiert werden und das oben in den reiter eben der inhalt aus einer der editfelder angezeigt wird (in dem falle wäre das "edtKennzeichen"). ich lese die daten aus einem array.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

        frmSuche.edtHNummer.text            :=IntToStr(FahrzeugErgebnisArray[Zaehler2].KFZHalterNr);
        frmSuche.edtFahrgestellnummer.text  :=FahrzeugErgebnisArray[Zaehler2].FahrgestellNr;
        frmSuche.edtFahrzeugbrief.text      :=FahrzeugErgebnisArray[Zaehler2].FahrzeugbriefNr;
        frmSuche.edtKennzeichen.text        :=FahrzeugErgebnisArray[Zaehler2].Kennzeichen;
        frmSuche.cbKennzeichen.text         :=FahrzeugErgebnisArray[Zaehler2].KennzeichenArt;
        frmSuche.cbTyp.text                 :=FahrzeugErgebnisArray[Zaehler2].Typ;
        frmSuche.edtModell.text             :=FahrzeugErgebnisArray[Zaehler2].Modell;
        frmSuche.edtFarbe.text              :=FahrzeugErgebnisArray[Zaehler2].Farbe;
        frmSuche.meBaujahr.text             :=FahrzeugErgebnisArray[Zaehler2].Baujahr;
        frmSuche.memZusatz.text             :=FahrzeugErgebnisArray[Zaehler2].Zusatz;
        frmSuche.meAnmeldedatum.text        :=DateToStr(FahrzeugErgebnisArray[Zaehler2].Anmeldedatum);
        frmSuche.meAbmeldedatum.text        :=DateToStr(FahrzeugErgebnisArray[Zaehler2].Abmeldedatum);
        frmSuche.edtBild.Text               :=FahrzeugErgebnisArray[Zaehler2].Bild;
        frmSuche.imgBild.Picture.LoadFromFile(frmSuche.edtBild.Text);

wäre klsse wenn mir das jemand sagen könnte wie das geht!

vielen dank!!!

LG Julia

O'rallY · Beiträge: 563

Ich nehme an, dass du TTabControl benutzt. Da gibts eine Eigenschaft, die nennt sich Tabs (vom Typ TStringLists/TStrings). Diese wiederum hat eine Methode names Add. Aufruf wie folgt:

markieren

Quelltext

1:	TabControl1.Tabs.Add('{Reitertitel}');

War es dass was du brauchst?

_________________
.oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...

Klabautermann · Verfasst: Mi 12.02.03 15:39

Hallo,

wenn die Daten alle Gleichartig sind, solltest du ein TabControl nehmen.
dann brauchst du die ganzen Edit Felder nur einmal und kannst mit

markieren

Quelltext

1:	TabControl1.Tabs.Add('Neue Seite');

einfach die neuen Seiten hinzufügen.

Solltest du Zwangsweise ein PageControl verwenden müssen wird das ganze komplizierter:

Du musst erstens das TabSheed erzeugen.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
  VAR
    TS : TTabSheet;
begin
  TS := TTabSheet.Create(PageControl1);
  TS.PageControl := PageControl1;
  TS.Caption := 'Test';
end;

Alle darauf enthaltenen Kompoinenten Dynamisch erzeugen.
Die Daten in die neuen Dynamischen Komponenten laden.

Die zweite Variante ist nicht nur aufwändiger sondern auch Recourcenfressender.

Gruß
Klabautermann

PS: Hattest du das nicht schon einmal gefragt?

O'rallY · Beiträge: 563

Ok, mir ist gerade aufgefallen, dass du nicht TTabControl benutzt, also nochmal :wink:

:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
   TabSheet1 := TTabSheet;
begin
   TabSheet1 := TTabSheet.Create(PageControl1);
   with TabSheet2 do
   begin
     Caption := 'Hallo';
     PageControl := PageControl1;
   end;
end;

Allerdings würde ich dir vorschlagen die TTabControl-Kompo zu benutzen. Die eignet sich für deine Zwecke besser!
Wenn es umbedingt die TPageControl sein muss, dann würde ich die TTabSheets in einem Array verwalten.
Hoffe 's hat dir geholfen.

_________________
.oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...

O'rallY · Beiträge: 563

Verdammt, jetzt hab ich für meinen Fehler büßen müssen. Da war doch wieder einer schneller mit der richtigen Antwort :mrgreen:

_________________
.oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...

Klabautermann · Verfasst: Mi 12.02.03 15:52

Hallo,

O'rallY hat folgendes geschrieben:

Verdammt, jetzt hab ich für meinen Fehler büßen müssen. Da war doch wieder einer schneller mit der richtigen Antwort :mrgreen:

daführ hätte ich nicht vor den absenden noch ein Telefonat führen sollen, dann währe ich vor deiner ersten gewesen

.

Aber Doppelt hällt ja bekantlich besser :mahn:

Gruß
Klabautermann

O'rallY · Beiträge: 563

Tja, das Leben ist hart :mrgreen:

. Immer sind andere schneller :wink:

.

_________________
.oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme