Label korrekt zur Laufzeit erzeugen?

[AlexII]

Hallo,

hab hier ein kleines Problem.
Wenn der Autor in der DB vorhanden ist und die Labelkomponente noch nicht existiert - wird diese erzeugt und der Name des Autors angezeigt. Klicke ich dann ein anderes Datensatz an, wo auch der Name vorhanden ist, wird dieser nicht mehr ausgegeben, der vorheriger Name des Autors bleibt für immer stehen. Mediatitle wird hingegen immer entsprechen angezeigt, also richtig. Was mache ich falsch?

Danke!

Delphi-Quellcode:

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

        if tb.FieldAsString(tb.FieldIndex['aname']) <> '' then
        begin
          if TLabel(FindComponent('test1')) = nil then
          begin
            MyLabel := TLabel.Create(Self);
            MyLabel.Parent := MediaGroupBox;
            MyLabel.Name := 'test1';
            MyLabel.WordWrap := True;
            MyLabel.Caption := tb.FieldAsString(tb.FieldIndex['aname']);
            MyLabel.Left := 8;
            MyLabel.Top := 178;
            MyLabel.Font.Style:=[fsItalic];
            MyLabel.Width := MediaGroupBox.Width - 15;
          end;

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

[Bummi]

Du hast keinen else Zweig für

if TLabel(FindComponent('test1')) = nil then

in dem MyLabel gesetzt würde.

[AlexII]

Das ist doch dasselbe... hab's auch mit else versucht, und das bringt leider nichts.

[Sir Rufo]

Zitat:

Zitat von Bummi (Beitrag 1202502)

Du hast keinen else Zweig für

Delphi-Quellcode:

if TLabel(FindComponent('test1')) = nil then

in dem MyLabel gesetzt würde.

Der

Delphi-Quellcode:

else

Zweig ist ja auch überflüssig ... allerdings ist

Delphi-Quellcode:

MyLabel

entweder

Delphi-Quellcode:

nil

oder sogar undefiniert, wenn schon ein Label besteht und dann soll darauf zugegriffen werden ;)

Besser so:

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.Parent := MediaGroupBox;
            MyLabel.Name := 'test1';
            MyLabel.WordWrap := True;
            // MyLabel.Caption := tb.FieldAsString( tb.FieldIndex['aname'] );
            MyLabel.Left := 8;
            MyLabel.Top := 178;
            MyLabel.Font.Style:=[fsItalic];
            MyLabel.Width := MediaGroupBox.Width - 15;
          end;

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

[Bummi]

@Sir Rufo wir meinen das gleiche, allerdings ist Deine Beschreibung sicher besser.

[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?

[Sir Rufo]

Zitat:

Zitat von AlexII (Beitrag 1202507)

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

Delphi-Quellcode:

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. :gruebel:

[Sir Rufo]

Zitat:

Zitat von AlexII (Beitrag 1202509)

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

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. :gruebel: