Zugriff auf vererbte Eigenschaften

[glunzl]

Hallo!

Ich bastel weiter an meinem Panel, mit Labels (Array) drauf. Das Panel wird von der Form1 in einer Scrollbox erzeugt. Jetzt komme icuh nicht weiter, weil ich es nicht hinbekomme weder aus meiner Klassen-Unit, noch aus der Main-Unit auf die Panels, bzw. Labels zuzugreifen.

Delphi-Quellcode:

unit DatPanel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

const
  AnzLabelsProPanel = 8       ;   // Anzahl der Label (Zeilen) pro Panel
  LabelHeight = 13            ;   // Höhe der Label (Zeilen); an Textgröße anpassen
  RandObenuUnten = 4          ;   // Rand oben und unten (jeweils Wert - Rand komplett = 2*Wert)
  LabelAbstandlinks = 0       ;   // Abstand links vom Label zum Panel (O = kein li. Rand)
  FarbeLabelOdd = clSilver    ;   // Farbe der ungeraden Labels
  FarbeLabelEven = clMedGray  ;   // Farbe der geraden Labels

type TDatPanel = class(TPanel)
  private
    fLabel : Array [0..AnzLabelsProPanel - 1] of TLabel ;
    function GetLabelText: String;
    procedure SetLabelText(const Value: String);
  public
    constructor Create(AOwner: TComponent); override ;
  published
    property LabelText : String read GetLabelText write SetLabelText ;
  end ;

implementation

constructor TDatPanel.Create(AOwner: TComponent);
var
  i : integer ;
begin
  inherited ;
  for i := 0 to AnzLabelsProPanel -1 do begin
    fLabel[i] := TLabel.Create(self);
    with fLabel[i] do begin
      Parent:= self ;
      Top := i * LabelHeight + RandObenuUnten ; Left := LabelAbstandlinks ; Height := LabelHeight  ;
      Caption := 'TestLine: ' + IntToStr(i+1) ;
      Name := 'DatLabel' + IntToStr(i) ;
      Tag := i ;
      end ;
    end ;
end;

function TDatPanel.GetLabelText: String;
begin
  // Großes Fragezeichen wie ich auf das Array der Labels von dieser Unit aus zugreifen kann (Ausser im Constructor)
end;

procedure TDatPanel.SetLabelText(const Value: String);
begin
  // Großes Fragezeichen wie ich auf das Array der Labels von dieser Unit aus zugreifen kann (Ausser im Constructor)
end;
end.

Der Zugriff aus Form1:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  aDP: Array [0..15] of TDatPanel ;
  i : integer ;
begin
  for i := 0 to 15 do begin
    aDP[i] := TDatPanel.Create(ScrollBox);
    aDP[i].Parent := Scrollbox ;
    aDP[i].Height := aDP[i].MinPanelHeight ;
    aDP[i].Top := i * aDP[i].Height ;
    aDP[i].Width := Scrollbox.ClientWidth ;
    aDP[i].LabelText  // Wie geschieht hier der Zugriff auf das Label-Array  des DatPanels?
    end ;
end;

Und dann noch gemeiner ... Kann man über Scrollbox. ... nach auf die Labels zugreifen?

Gruß
glunzl