Problem beim Erstellen eines Labels während der Laufzeit

[Hazardos]

Hallo,
mein Problem sieht folgendermaßen aus:
Ich möchte ein Formular während der Laufzeit erstellen und gleichzeitig Labels einfügen.

Delphi-Quellcode:

with TNachrichten.Create(self) do
  begin
    for i := 0 to Eingang.Items.Count-1 do
      begin
        with TLabel.create(Nachrichten) do
          begin
            Parent := Nachrichten;
            AutoSize := false;
            Height := 13;
            Width := 93;
            Transparent := false;
            Color := $00000062;
            Font.Color := clwhite;
            Left := 13;
            Top := i * 15 + 35;
            Name := 'Nachricht_Eingang_'+IntToStr(i);
            Caption := F_Main.qrmain.fieldbyname('headline').AsString;
            Tag := i;
          end;
      end;
  end;

So in etwa lautet der Code...
Ich bekomme keine Fehlermeldung, das Label ist nur nicht sichtbar...

Ich hoffe Ihr könnt mir helfen...

[alcaeus]

Hast du schon probiert Visible auf true zu setzen?
Falls das nicht klappt, probiers mal mit TStaticText

[Hazardos]

visible habe ich schon ausprobiert....
Ist statictext eine andere Komponente??
Wenn ja, dann bringt mir das nichts, bzw. ich möchte bei labels bleiben...

[alcaeus]

Den Unterschied zwischen StaticText und Label sieht normalerweise gar kein Mensch. Soviel ich weiß besteht der Einzige Unterschied darin, dass man bei StaticTexts die Möglichkeit hat, diese erhöht oder erniedrigt anzuzeigen. Aber sonst sehen die vollkommen gleich aus, probiers mal in einem Formular im Designmodus.

[Hazardos]

Das gleiche Ergebnis...
könnte es daran liegen, dass ich das Label erstellen will, während das Formular, in dem das Label erzeugt werden soll, erstellt wird??

[Ultimator]

Ich glaube der Unterschied zwischen den beiden ist, dass ein StaticText ein Handle hat und ein Label nicht.

Zitat:

Zitat von Die Online-Hilfe

Die Komponente TStaticText funktioniert wie TLabel. Ein Unterschied liegt darin, dass sie von TWinControl abstammt und deshalb ein Fenster-Handle besitzt. Verwenden Sie TStaticText anstelle von TLabel, wenn das Tastenkürzel einer Komponente auf ein fensterorientiertes Steuerelement verweisen muss, beispielsweise auf eine ActiveX-Eigenschaftsseite

[Hazardos]

Naja... das bringt mich ja nicht wirklich weiter...
Ich hasse solche Fehler, die noch nichtmal während der Laufzeit Fehlermeldungen hervorrufen, stattdessen aber garnichts passiert....
Ich bin langsam am Verzweifeln.... :wall:

[Matze]

Und, wenn du Show aufrufst?

[Hazardos]

hilft leider auch nicht....

[Niko]

Hast du schon mal geschaut, ob die Schleife überhaupt durchlaufen wird?

[Ultimator]

Zitat:

Code:

F_Main.qrmain.fieldbyname('headline').AsString

^^^^^^^^^^^^^^^^^^^^^^
Vielleicht steht da ja gar nichts drin

[kiar]

was steht denn in

Delphi-Quellcode:

Eingang.Items.Count

drin

wenn das 0 ist wird auch kein label erzeugt.

raik

[Hazardos]

die schleife wird durchlaufen...
Es sind auch werte vorhanden...
es geht halt nur ums grundsätzliche, dass die Labels nicht angezeigt werden...
Ich könnte in der Caption auch etwas anderes reinschreiben (getestet!) und das Ergebnis würde das Selbe sein...

[Christian Seehase]

Moin Hazardos,

was mir im Moment komisch vorkommt:

Delphi-Quellcode:

with TNachrichten.Create(self) do

Delphi-Quellcode:

        with TLabel.create(Nachrichten) do
          begin
            Parent := Nachrichten;

hängen Nachrichten und TNachrichten zusammen?
Bzw. Was ist Nachrichten?

[Hazardos]

Nachrichten ist ein Formular, welches ich so genannt habe. mit TNachrichten.create erstelle ich das formular und es wird auch angezeigt...

[Hazardos]

Ich habe es jetzt umgeschrieben, da wohl keiner dieses Problem für diese Methode Lösen konnte....
Meine Lösung sieht so aus:

Delphi-Quellcode:

 Nachrichten := TNachrichten.Create(self); // neue zeile
with Nachrichten do                       // war: with TNachrichten.Create(self) do
  begin
    for i := 0 to Eingang.Items.Count-1 do
      begin
        with TLabel.create(Nachrichten) do
          begin
            Parent := Nachrichten;
            AutoSize := false;
            Height := 13;
            Width := 93;
            Transparent := false;
            Color := $00000062;
            Font.Color := clwhite;
            Left := 13;
            Top := i * 15 + 35;
            Name := 'Nachricht_Eingang_'+IntToStr(i);
            Caption := F_Main.qrmain.fieldbyname('headline').AsString;
            Tag := i;
          end;
      end;
  end;

[Christian Seehase]

Moin Hazardos,

das war es, worauf ich hinaus wollte.
Wenn Du der Variablen Nachrichten nicht die Adresse einer Instanz von TNachrichten zuweist, so dass Nachrichten einen ungültigen Pointer, oder nil enthält, hat die Zuweisung

Delphi-Quellcode:

Parent := Nachrichten;

zur Folge, dass nichts angezeigt wird, da es ja Nachrichten nichts verwendbares enthält.