CheckListBox über case ansprechen

I_Z_U_A_L · Hält's aus hier Beiträge: 15

Hallo zusammen,

Ich würde mich freuen wenn jemand mir helfen könnte. Ich will CheckListBox über case ansprechen und abfragen Welche Zeilen-Items ausgewählt sind. Es sind 5 Zeilen-Items (a, b, c, d, e) die ich abfragen muss ob die ausgewählt sind. Wurden 2 Zeilen davon ausgewählt sollen die restlichen 3 Zeilen verschwinden, wurde der Hacken wieder entfernt müssen alle Zeilen wieder sichtbar werden.

Ich bedanke mich im Voraus für alle Antworten.

I_z_u_a_l

Moderiert von Tino: Absätze entfernt.

t/f · Beiträge: 70

das klingt seltsam.... die übrigen 3 Zeilen sollen verschwinden? Das wäre eigentlich nicht das Problem, aber wie kann man einen Häkchen wieder setzen, wenn die Elemente schon weg sind?

Und ich verstehe auch nicht, wieso du da mit Case arbeiten möchtest.

Am besten du erzählst, welchen Sinn dein Vorhaben hat. Vielleicht kommen wir da weiter.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var i : integer;

...

for i := 0 to (CheckListBox1.Count-1) do
begin

 if(CheckListbox1.Checked[i] = false)then
  CheckListBox1.ItemEnabled[i] := false;

end;

... hier ist eine Schleife, die alle nicht markierten Elemente einer Listbox deaktiviert... hilft dir das?

greetz
//me

I_Z_U_A_L · Hält's aus hier Beiträge: 15

Danke für die Antwort, etwas ausführlicher

Über CheckListBox soll mein Programm feststellen wie weiter gearbeitet wird, und zwar müssen nur 2 Felder zugelassen werden, das Programm entscheidet dann welche Formeln eingesetzt werden sollen (und das dachte ich am elegantesten über case zurealisieren, ist aber nicht zwingend notwendig ist).

Bsp.: sind Felder a und b ausgewählt, dann verschwinden die Anderen Felder, wurde der Hacken wieder entfernt aus einen der Felder erscheinen alle Felder zurück.

Mit Zählergesteuerte Schleife ist es auch sehr umständlich zu realiesiern.

Ich bedanke mich im Voraus für alle Antworten.

I_z_u_a_l

Moderiert von Tino: Absätze entfernt.

t/f · Beiträge: 70

ok da waren wir ja doch schon auf dem richtigen weg

nimm einfach 'mal deine CheckListBox und füge in die Prozedur des OnClickCheck-Ereignisses folgenden Quellcode ein...

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

var i,AnzahlDerGechecktenListenEintraege:integer;

....

AnzahlDerGechecktenListenEintraege := 0;

for i := 0 to (CheckListBox1.Count-1) do
begin

if(CheckListbox1.Checked[i])then
 AnzahlDerGechecktenListenEintraege := AnzahlDerGechecktenListenEintraege + 1;

end;

if(AnzahlDerGechecktenListenEintraege > 1)then
 begin

  for i := 0 to (CheckListBox1.Count-1) do
  begin

   if(CheckListbox1.Checked[i] = false)then
    CheckListBox1.ItemEnabled[i] := false;

  end;

 end
else
 begin

  for i := 0 to (CheckListBox1.Count-1) do
  begin

    CheckListBox1.ItemEnabled[i] := true;

  end;

end;

So das müsste soweit klappen.

I_Z_U_A_L · Hält's aus hier Beiträge: 15

danke sehr,

damit bin ich mehr als zufrieden ^^

kleine Kleine Korrektur:

markieren

Quelltext

1:
2:

for i := 0 to (CheckListBox1.Items.Count-1) do 
begin

am sonsten super danke sehr

Moderiert von Tino: Code-Tags hinzugefügt.

t/f · Beiträge: 70

geht auch ohne die Items

... habs probiert *g ... is ne direkte Eigenschaft von TCheckListBox.

Ansonsten: gerngeschehen

greetz
//me

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

t/f hat folgendes geschrieben:

geht auch ohne die Items

... habs probiert *g ... is ne direkte Eigenschaft von TCheckListBox.

Erst ab Delphi 6!

Gruß
Tino

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme