TCheckListBox -> Wie kann ich State zu weisen?
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:
Danke für Eure Hilfe.
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; Samashy |
Re: TCheckListBox -> Wie kann ich State zu weisen?
Vielleicht so?
Delphi-Quellcode:
Grüße
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; Klaus |
Re: TCheckListBox -> Wie kann ich State zu weisen?
Nein, das funktioniert leider nicht. Trotzdem Danke für Deine Zeit. :)
Sam |
Re: TCheckListBox -> Wie kann ich State zu weisen?
Hi,
Delphi-Quellcode:
Cu, Frank
vcfragenbox.Checked[i] := True;
// bzw. vcfragenbox.State[i] := cbGrayed; |
Re: TCheckListBox -> Wie kann ich State zu weisen?
Hi...
genau die Variante habe ich probiert und sie funktioniert ja nicht... siehe in meinen Quelltext. |
Re: TCheckListBox -> Wie kann ich State zu weisen?
Hast du das Control auch neu Zeichen lassen?
|
Re: TCheckListBox -> Wie kann ich State zu weisen?
Zitat:
Was liefert denn z.B.: TVC_frage(vcfragenbox.Items[a]).wert_sek im Debugger für einen Wert? Cu, Frank |
Re: TCheckListBox -> Wie kann ich State zu weisen?
ich vermute...
Delphi-Quellcode:
Frank
// statt
TVC_frage(vcfragenbox.Items[a]).wert_sek=2 // sollte TVC_frage(vcfragenbox.Items.Objects[a]).wert_sek=2 |
Re: TCheckListBox -> Wie kann ich State zu weisen?
Zitat:
Zitat:
bei 2 Einträge 1 bei 1 Eintrag 2 |
Re: TCheckListBox -> Wie kann ich State zu weisen?
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:38 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz