Problem mit Code, seit Komponente zur Laufzeit erstellt werd

[nahpets]

Hallo,

eventuell geht's ja so:

Delphi-Quellcode:

procedure TForm1.CheckBoxSettingsChange(Sender: TObject); 
  var i:Integer; 
begin 
  i:=0; 
  while i < High(BracketOpen) do begin 
    if BracketOpen[i] = Sender then 
      Break; 
    inc(i); 
  end; 
  if BracketOpen[i] = Sender then 
  begin 
    if (BracketOpen[i].Checked) then 
    begin 
      BracketOpen[i].Font.Color:=clRed; 
      BracketOpen[i].Font.Bold:=true; 
    end 
    else
    begin 
      BracketOpen[i].Font.Color:=clBlack; 
      BracketOpen[i].Font.Bold:=false; 
    end; 
    // Die beiden Zeilen können alternativ genutzt werden,
    // es ist nur eine erforderlich, welche ist Geschmacksache.
    BracketOpen[i].Refresh; // <- Neu zeichnen lassen
    BracketOpen[i].Repaint; // <- Neu zeichnen lassen
  end;
end;