checklistbox.deleteselected funzt nicht

[Go2EITS]

Ich habe ein trivales Problem:

Ein einfaches
checklistbox1.items.add('1');
checklistbox1.items.add('2');
checklistbox1.items.add('3');
füllt die Listbox.

Ich kann alles markieren.

Multiselected scheint True zu sein.

checklistbox1.DeleteSelected löscht nur einen markierten Eintrag statt alles.

Was mache ich da falsch? Die Suche in der Hilfe und DP half mir auch nicht weiter.

[Christian Seehase]

Moin Go2EITS,

das kann ich für D7 Pro und TDE Win32 nicht bestätigen.
Es funktioniert wie erwartet.

Zitat von Go2EITS:

Multiselected scheint True zu sein.

das Mulitselect standardmässig false ist müsstest Du es schon gezielt aktiviert haben.

Auch wenn ich das Deiner Beschreibung nach eigentlich nicht vermute:
Verwechselst Du vielleicht Selected und Checked?

[Go2EITS]

@Seehase
Danke für Deine Hilfe!

Die in der Checklistbox selectierten Einträge sollen gelöscht werden. Da verwechsle ich mal nix.
Hier mein Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
chklst1.items.Add('1');
chklst1.items.Add('2');
chklst1.items.Add('3');
end;

procedure TForm1.button1Click(Sender: TObject);
begin
chklst1.DeleteSelected;
end;

Ich habe es nochmals probiert.
Der Code löscht nur einen Eintrag. Den unteren.

Ich werfe nun cnwizzard raus.

[Go2EITS]

Ich wundere mich auch: Multiselected wird trotz intensiver Suche von mir nicht gefunden.
Weder unter D7 noch unter BDS2006 Win32. Ich verwende eine TChecklistbox.
Cnwizzard und delphispeedup deinstalliert. Gleiches Problem. Irgendetwas mache ich falsch.

Oha, ich sehe gerade, wenn ich eine anderen Eintrag makiere, und deleleteselected aufrufe wird der betreffende Eintrag gelöscht.Ich möchte, ich glaube da liegt mein Missverständnis, die Eintragungen mit Hacken löschen. Und dass scheint eine andere Eigenschaft zu sein, oder? Ein deletechecked konnte ich nicht finden.
Und clearselection löscht nur die makierten Einträge lt. der Hilfe. Funzt bei mir auch nicht.

Da habe ich wol ein generelles Verständnisproblem.

[Go2EITS]

Na ja, da beibt mir wohl nichts anderes als meine gerade gefundene Notlösung zu nehmen:

Delphi-Quellcode:

for i:=checklistbox1.count-1 downto 0 do
  begin
   if checklistbox1.Checked[i]=true then
    checklistbox1.items.Delete(i);
  end;

Dies geht. Aber es gibt doch sicherlich für die gewählten, mit Hacken versehen Einträge, eine andere Lösung, oder?

Beste Grüße an die DP.
Go2EITS

[Christian Seehase]

Moin Go2EITS,

was das MultiSelect angeht:
Nicht alles steht im Objektinspektor.

Die CheckedListBox kennt diese Eigenschaft.

Zitat von Go2EITS:

ich glaube da liegt mein Missverständnis, die Eintragungen mit Hacken löschen.

Haken dran => Checked
Ausgewählt/farbig hinterlegt: => Selected

[Muetze1]

Ein Vorschlag damit es bei langen Liste nicht so lange dauert:

Delphi-Quellcode:

CheckListBox1.Items.BeginUpdate;
Try
  For i := Pred(checklistbox1.Count) DownTo 0 Do
    If checklistbox1.Checked[i] Then
      Checklistbox1.items.Delete(i);
Finally
  CheckListBox1.Items.EndUpdate;
End;

[Go2EITS]

Moin Seehase!

Zitat:

Nicht alles steht im Objektinspektor.

Das wusste ich nicht!

Zitat:

Haken dran => Checked
Ausgewählt/farbig hinterlegt: => Selected

Ja, das habe ich dann auch ge"checked".

@Muetze1:
Klingt theatralisch, ist aber frei nach "Apocalypse Now": Ich liebe erfrischenden Code am Morgen.

Delphi-Quellcode:

CheckListBox1.Items.BeginUpdate; 
Try 
  For i := Pred(checklistbox1.Count) DownTo 0 Do 
    If checklistbox1.Checked[i] Then 
      Checklistbox1.items.Delete(i); 
Finally 
  CheckListBox1.Items.EndUpdate; 
End;

Den Code habe ich sogleich gleich mal übernommen! Danke!
Beste Grüße
Go2EITS

[Christoph Frank]

Hallo zusammen,

also mit der CheckListBox habe ich so meine Probleme.
Wie im Beitrag geschrieben - bei der CheckListBox gebe es auch ein MultiSelect - kann ich nicht bestätigen.
Wenn damit gemeint ist, daß ich sowohl ein Checked wie auch Selected ausführen kann, dann fängt da mein Problem schon an.
Ich möchte z.B. eine farbliche Hinterlegung in meiner CheckListBox haben aber nur dann, wenn auch ein Haken gesetzt ist und nur bei den angehakten. Auch möchte ich eine Möglichkeit haben, daß nur ein Haken gesetzt werden kann, also vergleichbar mit MultiSelect := false in der ListBox.

Hat denn dafür jemand eine Lösung?
Das Beispiel in diesem Beitrag habe ich etwas umgeändert und dachte mir damit zu helfen:

Altes Beispiel: Mein Beispiel:
CheckListBox1.Items.BeginUpdate; CheckListBox1.Items.BeginUpdate;
Try
For i := Pred(checklistbox1.Count) DownTo 0 Do For i := Pred(checklistbox1.Items.Count)
DownTo 0 Do
If checklistbox1.Checked[i] Then If checklistbox1.Checked[i] Then
Checklistbox1.items.Delete(i); Checklistbox1.Selected[i] := false;
Finally Finally
CheckListBox1.Items.EndUpdate; CheckListBox1.Items.EndUpdate;
End; End;

Bei meinem Beispiel knalle ich aber raus 'Index überschreitet das Maximum von (n)'

Gruß Christoph

[Christoph Frank]

Hoppla,
der hat mir alle Blanks weggeschmissen, hier noch mal mein Beispiel:

[delphi]
CheckListBox1.Items.BeginUpdate;
Try
For i := Pred(checklistbox1.Items.Count) DownTo 0 Do
If checklistbox1.Checked[i] Then
Checklistbox1.items.Selected[i] := false;
Finally
CheckListBox1.Items.EndUpdate;
End;