TCheckListBox -> Wie kann ich State zu weisen?

[Samashy]

Hallo Ihr Lieben,

ich hoffe jemand kann mir meine dumme Frage beantworten. Ich stehe grade auf der Leitung.
Ich füge Objecte in eine TCheckListBox. Nun möchte ich gerne den State entsprechend eines Wertes für jede einzelne Checkbox setzen. Was mache ich falsch?

Delphi-Quellcode:

For a:=0 to vcfragenbox.items.count-1 do begin
    If TVC_frage(vcfragenbox.Items[a]).wert_sek=2 then
       vcfragenbox.state[a]:=cbChecked
    else If TVC_frage(vcfragenbox.Items[a]).wert_sek=1 then
       vcfragenbox.state[a]:=cbunChecked
    else vcfragenbox.state[a]:=cbGrayed;
end;

Danke für Eure Hilfe.

Samashy

[Klaus01]

Vielleicht so?

Delphi-Quellcode:

For a:=0 to vcfragenbox.items.count-1 do begin 
    If TVC_frage(vcfragenbox.Items[a]).wert_sek=2 then 
       vcfragenbox.state[a].Checked:=true;
    else If TVC_frage(vcfragenbox.Items[a]).wert_sek=1 then 
       vcfragenbox.state[a].checked:=false; 
    else vcfragenbox.state[a].enabled:=false; 
end;

Grüße
Klaus

[Samashy]

Nein, das funktioniert leider nicht. Trotzdem Danke für Deine Zeit.
Sam

[dataspider]

Hi,

Delphi-Quellcode:

vcfragenbox.Checked[i] := True;
// bzw.
vcfragenbox.State[i] := cbGrayed;

Cu, Frank

[Samashy]

Hi...
genau die Variante habe ich probiert und sie funktioniert ja nicht... siehe in meinen Quelltext.

[mkinzler]

Hast du das Control auch neu Zeichen lassen?

[dataspider]

Zitat von Samashy:

Hi...
genau die Variante habe ich probiert und sie funktioniert ja nicht... siehe in meinen Quelltext.

OK, hatte Tomaten auf den Augen, aber das ist der korrekte Syntax.
Was liefert denn z.B.: TVC_frage(vcfragenbox.Items[a]).wert_sek im Debugger für einen Wert?

Cu, Frank

[dataspider]

ich vermute...

Delphi-Quellcode:

// statt
TVC_frage(vcfragenbox.Items[a]).wert_sek=2
// sollte
TVC_frage(vcfragenbox.Items.Objects[a]).wert_sek=2

Frank

[Samashy]

Zitat:

Autor: mkinzler> Hast du das Control auch neu Zeichen lassen?

Nein habe ich nicht... probiere ich gleich

Zitat:

Autor: dataspider >Was liefert denn z.B.: TVC_frage(vcfragenbox.Items[a]).wert_sek im Debugger für einen Wert?

bei 3 Einträgen 0
bei 2 Einträge 1
bei 1 Eintrag 2

[Samashy]

Zitat:

ich vermute...
Delphi-Quellcode: markieren
// statt
TVC_frage(vcfragenbox.Items[a]).wert_sek=2
// sollte
TVC_frage(vcfragenbox.Items.Objects[a]).wert_sek=2

Danke, das hat geklappt!