TLabel zur Laufzeit

[MadMason]

Ich habe ein Form mit einer PageControl
auf einem Tabsheet ist eine GroupBox

Ich möchte nun zur Laufzeit ein Label in der GroupBox erzeugen.

wenn ich mit

Code:

 var lab: TLabel;

 lab:= TLabel.Create(GroupBox1);
 lab.Top:= 8;
 lab.Left:= 8;
 lab.Caption:= 'Test';

ein label erzeuge ist das aber nirgendwo zu sehen

was mach ich falsch?

[CalganX]

Ersteinmal ein Tipp: formatiere deine Sources doch bitte mit den Delphi-Tags ( [ delphi ] ... [ /delphi ] (nur ohne Leerzeichen))...

Also, zu deinem Problem: Du musst ersteinmal das Label auf Visible stellen:

Delphi-Quellcode:

Lab.Visible := true;
Lab.Parent := GroupBox1; // ist auch noch zu empfehlen

Chris

[Christian Seehase]

Moin Chris,

das visible ist bei einem Label nicht erforderlich, da dies standardmässig auf true steht.

[CalganX]

Also, ich habe die Erfahrung gemacht, dass Visible bei dynamisch erstellten Komponenten immer auf false steht...

Chris

[Christian Seehase]

Moin Chris,

das könnte dann heissen, dass es entweder (Delphi)Versionsabhängig ist, was ich allerdings für eher unwahrscheinlich halte, oder von der Kompo abhängt.
Deshalb hatte ich auch explizit geschrieben, dass es bei TLabel nicht notwendig ist. ;-)
Schaden kann es natürlich trotzdem nicht.

[eddy]

Hallo MadManson,

ich hatte das gleiche Problem. Nachdem ich Parent einen Wert zuwies, erschienen die Labels auf dem Bildschirm.

Anbei noch ein Programmstückchen:

Delphi-Quellcode:

      with TLabel.Create(gbGruppen) do begin
        Parent := gbGruppen;
        name := 'lbl' + s;
        Left := vleft + colofs * (vwidth + colds);
        Top  := vtop + rowofs * (lblheight + lblds + vheight + rowds );
        Height := lblheight;
        Caption := s;
//        visible := true;
      end;

Wie Du siehst, hatte ich es auch zuerst mit Visible probiert. gbGruppen ist der Name der GroupBox. Left und Top werden berechnet (sind hier nicht von Bedeutung).

mfg
eddy

[nailor]

Man kann auch InsertControl nehmen, anstatt ein Parent zuzuweisen. Funktioniert gleich, ist wahrscheinlich Geschmackssache.

[Christian Seehase]

Moin Nailor,

Zitat:

Zitat von Delphi Hilfe: InsertControl

InsertControl sollte in einer Anwendung nicht direkt aufgerufen werden. ... Zur Laufzeit können Sie ein Steuerelement mit Hilfe seiner Eigenschaft Parent in das Array Controls einfügen.

Ein Unterschied, der natürlich bei dynamisch erzeugten Controls unwichtig ist, ist der, das bei der Zuweisung von Parent dafür gesorgt wird, dass das Control aus seinem bisherigen Container entfernt wird.

[MadMason]

thx an alle

habs jetzt hibekommen :bounce1: :bounce2: :bouncing4: