Hallo,
vielleicht wisst ihr ja wo der Fehler ist
Seit dem ich mein Checkboxarray zur Laufzeit erstellen lasse, funktioniert folgender Code nur noch halb!Also wenn ich die Checkbox anhake wird meine Caption nach wie vor rot
aber nicht mehr fett geschrieben!!
Vor der dynamischen Erstellung hat beides funktioniert!?!
Danke schonmal im Voraus!
Delphi-Quellcode:
[b]//[/b]Checkbox BracketOpen
Setlength(BracketOpen, zaehler+1);
BracketOpen[zaehler]:= TCheckBox.Create(self);
BracketOpen[zaehler].Name:= 'CBBracketOpen'+InttoStr(zaehler+1);
BracketOpen[zaehler].Parent:= GroupBoxesItem[zaehler];
BracketOpen[zaehler].Left:= 0;
BracketOpen[zaehler].Top:= -4;
BracketOpen[zaehler].Width:=30;
BracketOpen[zaehler].Height:=22;
BracketOpen[zaehler].Caption:='(';
BracketOpen[zaehler].Font.Bold:=false;
BracketOpen[zaehler].OnChange:=@CheckboxSettingsChange;
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=true) then
begin
BracketOpen[i].Font.Color:=clRed;
BracketOpen[i].Font.Bold:=true;
end
else if (BracketOpen[i].Checked=false)then
begin
BracketOpen[i].Font.Color:=clBlack;
BracketOpen[i].Font.Bold:=false;
end;
end;