Panel mit Label dynamisch erzeugen

[DeddyH]

Versuch es mal so (ungetestet):

Delphi-Quellcode:

procedure TLabeledPanel.Fuellen(ID: String);
var ini: TIniFile;
    s: string; 
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'kontoinfo.ini');
  (*Die Labels befüllen; Werte werden aus der Ini 'kontoinfo.ini' mittels dem übergebenen
    Wert in 'ID'*)
  try
    FLabelDatum.Caption:=DateToStr(ini.ReadDate('ID',ID,0));
    FLabelKurzbeschreibung.Caption:=ini.ReadString('Kurzbeschreibung',ID,'0');
    FLabelKategorie.Caption:=ini.ReadString('Kategorie',ID,'0');
    Str(ini.ReadFloat('Betrag',ID,0):9:2,s);  //Das letzte ist ein Var-Parameter
    FLabelBetrag.Caption := s;
    if ini.ReadInteger('Art',ID,-1) = 0 then
      Canvas.Brush.Color:=cllime              //Setzen der Farbe der Zeichenfläche
    else
      Canvas.Brush.Color:=clred;
    Invalidate;  //neu zeichnen lassen
  finally
    ini.Free;
  end;
end;