Label korrekt zur Laufzeit erzeugen?

[Sir Rufo]

Zitat von AlexII:

Thx! Es funkt, nur die Label Eingenschaften sind mal so mal so, also nicht immer die gleichen. Wie kann ich die Eigenschaften in beiden Fällen gleich setzen?

Ähhm, es so schreiben, dass diese Eigenschaften immer gesetzt werden, also nicht in den if ... then Teil?

Delphi-Quellcode:

       DetailsTitleLabel.Caption := tb.FieldAsString( tb.FieldIndex['mediatitle'] );

        if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
        begin
          // Label suchen
          MyLabel := TLabel( FindComponent( 'test1' ) );

          // Wenn kein Label gefunden wurde
          if MyLabel = nil then
          begin
            // dann müssen wir uns einen anlegen
            MyLabel := TLabel.Create( Self );
            MyLabel.Name := 'test1';
          end;

          // und ab hier haben wir gesichert eine MyLabel Instanz

          MyLabel.Parent := MediaGroupBox;
          MyLabel.WordWrap := True;
          MyLabel.Left := 8;
          MyLabel.Top := 178;
          MyLabel.Font.Style:=[fsItalic];
          MyLabel.Width := MediaGroupBox.Width - 15;

          MyLabel.Caption := tb.FieldAsString( tb.FieldIndex['aname'] );
       end;

[AlexII]

Und wie und wo vernichte ich das Label wenn den Autor nicht mehr gibt?

Mit MyLabel.Free; verschwindet mein ganzes Programm.

[Sir Rufo]

Zitat von AlexII:

Und wie und wo vernichte ich das Label wenn den Autor nicht mehr gibt?

Also ein wenig nachdenken ist ja manchmal nicht schlecht ... und etwas mehr Information, wie du erkennst, dass es da was nicht mehr geben soll ...

aber ich tippe mal darauf

Delphi-Quellcode:

       DetailsTitleLabel.Caption := tb.FieldAsString( tb.FieldIndex['mediatitle'] );

        // Label suchen
        MyLabel := TLabel( FindComponent( 'test1' ) );

        // Gibt es einen Autor?
        if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
          begin
            // Wenn kein Label gefunden wurde
            if MyLabel = nil then
              begin
                // dann müssen wir uns einen anlegen
                MyLabel := TLabel.Create( Self );
                MyLabel.Name := 'test1';
              end;

            // und ab hier haben wir gesichert eine MyLabel Instanz

            MyLabel.Parent := MediaGroupBox;
            MyLabel.WordWrap := True;
            MyLabel.Left := 8;
            MyLabel.Top := 178;
            MyLabel.Font.Style:=[fsItalic];
            MyLabel.Width := MediaGroupBox.Width - 15;
  
            MyLabel.Caption := tb.FieldAsString( tb.FieldIndex['aname'] );
         end
       else
         // kein Autor, kein Label
         MyLabel.Free;

[AlexII]

Hm... hab ich so gemacht, und wenn es keinen Autor gibt wird das ganze Programm unsichtbar, es verschwindet irgendwohin, muss es dann über Task-Manager als Prozess beenden.

[Sir Rufo]

Zitat von AlexII:

Hm... hab ich so gemacht, und wenn es keinen Autor gibt wird das ganze Programm unsichtbar, es verschwindet irgendwohin, muss es dann über Task-Manager als Prozess beenden.

Glaube ich nicht ...

erst kommt

Delphi-Quellcode:

        // Label suchen
        MyLabel := TLabel( FindComponent( 'test1' ) );

und dann

Delphi-Quellcode:

        // Gibt es einen Autor?
        if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
          begin
            ...
          end
       else
         // kein Autor, kein Label
         MyLabel.Free;

Bei dir sieht es wohl noch so aus

Delphi-Quellcode:

        // Gibt es einen Autor?
        if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
          begin
            // Label suchen
            MyLabel := TLabel( FindComponent( 'test1' ) );
            ...
          end
       else
         // kein Autor, kein Label
         MyLabel.Free;

gelle

[Sir Rufo]

Zitat von AlexII:

Mit MyLabel.Free; verschwindet mein ganzes Programm.

Das ist so schon korrekt, warum das würde jetzt zu weit führen ... kann man aber hier im Forum suchen

BTW:

Wenn du die Caption von einem Label mit '' befüllst, dann sieht keine S** ob da ein Label ist oder nicht.

Warum willst du also so eine Erzeugungs- und Vernichtungsorgie starten?

Meinetwegen setze Visible vom Label auf true oder false ... so ist das Murks

[AlexII]

Weil anstelle dieses Labels ein anderes Label erstellt werden soll, mit anderen Infos.

[Sir Rufo]

Zitat von AlexII:

Weil anstelle dieses Labels ein anderes Label erstellt werden soll, mit anderen Infos.

Nun wenn es dich glücklich macht ... aber leg dir mal eine kleine Test-Projekt an und spiele ein wenig mit dem Visible herum

[AlexII]

Thx... läuft alles!

[Sir Rufo]

Ich würde ja ein Label Test1 fest anlegen und dann sieht der Code wie folgt aus:

Delphi-Quellcode:

// Gibt es einen Autor?
if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
  Test1.Caption := tb.FieldAsString( tb.FieldIndex['aname'] )
else
  Test1.Caption := 'Some other information with a DRY KISS';