Entwickler-Ecke :: Thema anzeigen - GroupBox in neu erstellte TabSheet-Seite 'verschieben'

ThomasQ - So 05.02.12 12:53
Titel: GroupBox in neu erstellte TabSheet-Seite 'verschieben'

Hallo!

Mit dem nachfolgenden Code habe ich eine neue Seite (TabSheet) erstellt und auch an der gewünschten Position einsortiert.

Delphi-Quelltext

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

      with TTabSheet.Create(Self) do
        begin
          PageControl := PageControl1;
          PageControl1.Left := 5;
          PageControl1.Top := 370;
          Caption := ' Adresse ';
          PageControl1.TabIndex := 1;
          PageIndex := 1;
        end;

Wie aber bekommte ich da jetzt eine auf einer anderen TabSheet-Seite bestehende GroupBox hinein?

Moderiert von Martok: Delphi-Tags hinzugefügt

ThomasQ - So 05.02.12 13:42

jaenicke hat folgendes geschrieben :

Parent der Groupbox setzen? ;-)

Mein Problem ist ja, dass ich eben nicht weiß, durch was das ? zu ersetzen ist...

Groupbox.Parent := ?

Ersetze ich das ? durch TabSheet1, TabSheet2 oder TabSheet5 habe ich jedes Mal eine leere Seite bei Aufruf des neues TabSheets vor mir...

jaenicke - So 05.02.12 14:48

Also bei mir klappt das problemlos. :nixweiss:

Delphi-Quelltext

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

var
  NewTabSheet: TTabSheet;
begin
  NewTabSheet := TTabSheet.Create(Self);
  NewTabSheet.PageControl := PageControl1;
  NewTabSheet.Caption := 'Adresse';
  NewTabSheet.PageControl.TabIndex := NewTabSheet.TabIndex;
  GroupBox1.Parent := NewTabSheet;

Du benutzt eben das dämliche with statt die Referenz auf die neue Seite zu speichern. Deshalb hast du die halt auch nicht, wenn du sie brauchst...

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!