Problem mit Code, seit Komponente zur Laufzeit erstellt werd

[nuclearping]

Erbsenzählerei.

[mkinzler]

Nein OOP

[himitsu]

du meinst so zur Sicherheit, falls er da mal was Anderes macht,

Code:

BracketOpen[zaehler]:= [b]TCheckBox[/b].Create(self);

damit wohl die folgenden Casts nicht plötzlich meckern.

Delphi-Quellcode:

if (Sender is TCheckBox) and (BracketOpen[i] = Sender) then

// hier man muß auch überall Kürzen
if BracketOpen[i] = (Sender as TCheckBox) then ...........|

[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;

[Bomberbb]

Die Schleife vorweg kannst Du Dir auch ersparen.
Ich würde es so schreiben...

Delphi-Quellcode:

procedure TForm1.CheckBoxSettingsChange(Sender: TObject);
begin
  with Sender as TCheckbox do 
  begin
    Font.Bold:=checked; 
    if checked then
      Font.Color:=clRed        
    else
      Font.Color:=clBlack;
    Refresh;  
  end;
end;

[luckybug83]

Hallo,
erstmal VIELEN DANK für die vielen Antworten!!!

Ok, dass euch meine Schleife verwirrt ist gut möglich, da ihr den Rest von meinem Code nicht kennt sie aber schon ihren Sinn hat ...

Habe sämtliche Möglichkeiten, die ihr mir alle gegeben habt ausprobiert, aber nach wie vor wird es zwar rot aber immernoch nicht fett!

Naja vielleicht werde ich einfach auf das fett verzichten!

Liebe Grüsse!

[nahpets]

Hallo,

habe kein Lazarus/FreePascal.
Bei Delphi geht das so:
CheckBox.Font.Style := fsBold; Gibt es die Möglichkeit bei Dir eventuell auch?

[Muetze1]

Zitat von nahpets:

Hallo,

habe kein Lazarus/FreePascal.
Bei Delphi geht das so:
CheckBox.Font.Style := fsBold; Gibt es die Möglichkeit bei Dir eventuell auch?

Dann hast du ein anderes Delphi als alle anderen hier. Style ist eine Menge (set) und somit musst du auch eine Menge und nicht einen Aufzählungsmember zuweisen. Also geht es bei Delphi so:

CheckBox.Font.Style := [fsBold];

[luckybug83]

Hi,
ja diese Möglichkeit gibt es bei Lazarus auch, aber auch diese funktioniert nicht

Grüsse

[inherited]

Ich habe mal versucht das zu reproduzieren, bei mir klappt folgendes allerdings wunderbar:

man nehme ein neues Projekt, ziehe eine CheckBox auf das Formular, erstelle eine OnClick-Methode dafür. Ins OnCreate kommt

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TCheckBox.Create(self) do
  begin
    SetBounds(200,10,100,20);
    Parent:=self;
    Caption := 'Dynamisch';
    OnClick:=@CheckBox1Click;
  end;
end;

Dadurch wird eine zweite CheckBox zur Laufzeit erstellt. Ins OnClick kommt:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  with Sender as TCheckBox do
  begin
    Font.Color:=clRed;
    Font.Bold:=true;
  end;
end;

Klickt man jetzt auf eine der CheckBoxen, wird dessen Caption Rot und Fett dargestellt. Klappt also wunderbar
Klappt dieses Minibeispiel bei dir auch?