Löschen einzelner Items einer ListBox

[Kratos]

Hallo liebe Community,

*delphi-newbie*

Programmaufbau

Code:

Form5 -> ListBox5 -> Items -> Item 0, Item1, Item2, Item3, Item4, Item5
Form7 -> edt7(TEdit)
      -> btn7(TButton)

Auf Form5 befindet sich eine ListBox5 . In Form5.OnCreate ist festgelegt, dass Item 0-5 geladen werden.
Wenn ein Doppelklick auf ListBox5.Item5 stattfindet, soll sich Form7 öffnen.
Der String, der in Form7.edt7 eingegeben wird, soll als neues Item der Form5.ListBox5 geaddet werden.
Das funktioniert bis hierhin alles.

Nun soll es aber möglich sein, dass Items, die AUSSCHLIEßLICH(!) durch Form7.edt7 der Form5.ListBox5 hinzugefügt worden sind, einzeln gelöscht werden können.
Meine Idee dazu war, dass ein einfaches Kreuz jeweils hinter dem hinzugefügten Item auf dessen Zeile erscheint. Durch Klick darauf, löscht es das Item. Ich hab das in einem Bild mal deutlich gemacht.

Ich habe keinen so richtigen Ansatzpunkt. Ich habe mir überlegt eine Prozedur zu schreiben, die jedes Mal einen Button dem hinzugefügten Item hinzufügt.
Aber so richtig weiß ich nicht wie das gehen soll.
Oder ist mein Ansatzpunkt falsch? Gibt es einen einfacheren Weg?
Für Denkanstöße wäre ich sehr dankbar

VG
Kratos

[Billa]

Du benötigst ein Unterscheidungkriterium (manuell oder automatisch),
also beispielsweise beim Laden (Initialisieren) das Kriterium auf "0", beim Hinzufügen durch Button "1"...

Dazu könnte man entweder das Objekt des List-Items "mißbrauchen" oder besser gleich eine generische Liste der Einträge mit einer entsprechenden Property benutzen

[Jasocul]

Falls du nicht unbedingt einen Button benötigst, kannst du dir mal TCheckListBox ansehen. Vielleicht kannst du die ja für das gewünschte Verhalten anpassen.

[Kratos]

Also ich hab mich zuerst an der Checklistbox probiert.
Ich hab es jetzt so hinbekommen, dass sich Items.ItemIndex < 5 nicht mehr löschen lassen. Allerdings lassen sich diese Items dennoch markieren. Wirklich zufrieden bin ich damit allerdings nicht.

@Billa
Ich programmiere noch nicht sehr lange delphi. Somit weiß ich leider nicht, was du mir sagen möchtest^^
Kannst du deine Aussage ein wenig mehr präzisieren, bitte?

Gruß
Kratos

[KodeZwerg]

Hi, wenn ich mich korrekt erinner, kann man einem Item auch noch eine Eigenschaft anheften.
Wenn das noch funktioniert wäre der Aufbau so in etwa
(für die Items die man löschen kann/darf/soll/etc)

Delphi-Quellcode:

// etwas addieren
ListBox1.Items.AddObject('Ein Item', TObject(True));
// etwas löschen per abfrage so in etwa:
if Boolean(ListBox1.Items.Objects[ListBox1.ItemIndex]) then
  begin
    ListBox1.Items.Objects[ListBox1.ItemIndex].Free;
    ListBox1.Items.Delete(ListBox1.ItemIndex);
  end;

Ungetestet da ich gerade kein wunderbares Delphi vor mir habe...
Falls es nicht klappt oder Dir nicht zusagt, einfach ignorieren.

Ps: Markiert werden kann erstmal immer, soweit ich weiß.

[Jasocul]

Wenn du verhindern willst, dass die Items nicht ausgewählt werden können, kannst du im OnSelect folgendes machen:

Delphi-Quellcode:

  if (CheckListBox1.itemindex < 5) and (CheckListBox1.Selected[CheckListBox1.itemindex]) then
  begin
    CheckListBox1.Selected[CheckListBox1.itemindex] := False;
  end;

Wenn diese nicht gechecked sein dürfen, dann im OnClickCheck:

Delphi-Quellcode:

  if (CheckListBox1.itemindex < 5) and (CheckListBox1.Checked[CheckListBox1.itemindex]) then
  begin
    CheckListBox1.Checked[CheckListBox1.itemindex] := False;
  end;

Das Konzpt, von KodeZwerg würde ich vermutlich auch nehmen, aber ich weiß nicht, ob du meinen deinen Kenntnissen schon damit klar kommst.