Label zur Laufzeiter erstellen-nicht angezeigt auf Groupbox

[marabu]

Hallo Susanne,

ein paar Anmerkungen zu deinem folgenden Code-Fragment:

Delphi-Quellcode:

// ...
      // if PtInRect(a_Gbx[iii].BoundsRect, Point(Left, Top)) then
      // oder zumindest: ... (Left <= i_GbX + i_GbB) ... etc.
      if (Left >= i_GbX) and (Left<= i_GbB) and (Top >= i_GbY) and (Top<= i_GbH) then
      begin
        // GroupBox nur dann als Owner von Label festlegen, wenn Label 
        // vom Destruktor der GroupBox zerstört werden soll.
        a_Lbl[i] := TLabel.Create(a_Gbx [iii]);
        // Parent muss immer gesetzt werden ...
        a_Lbl[i].Parent := a_Gbx[iii]; 
        a_Lbl[i].Font.Size:= 10;
        a_Lbl[i].Left   := Left
        a_Lbl[i].Top    := Top ;
        a_Lbl[i].BringToFront;
        // Nix zu sehen, weil Caption fehlt ...
        break;
      end else
      begin
        a_Lbl[i] := TLabel.Create(Form2);
        a_Lbl[i].Font.Size:= 10;
        // Parent muss immer gesetzt werden ...
        a_Lbl[i].Parent := Form2;  // hier besser: self
      end;
    end;

Grüße vom marabu