Listbox item select

[Micha]

Ich steh' heut schon wieder auf'm Schlauch, aber in der Delphi-Hilfe und auch hier im Forum finde ich keine Lösung dafür.

Und zwar möchte ich den in Listbox1 selektierten Wert in die Listbox2 bringen.

Müsste also irgendwie so gehen:
listbox2.items.add(listbox1.items.selected)

oder so ähnlich

Hilft mir bitte wer!

[Daniel B]

Warst schon fast dran.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
end;

[Micha]

Hey, super.
DANKESCHÖÖÖN

Was ist aber, wenn ich mehrere markiert habe?
Dann funktioniert das nicht.

[devnull]

@Daniel:

   ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]); Geht das auch wenn zwei Kästchen markiert sind, oder wird dann nur eins kopiert ?

devnull

[Daniel B]

Dann wird nur das kopiert das den Fokus hat, egal ob eins oder mehrere markiert sind, dies war aber anfangs nicht die Fragestellung.

[himitsu]

Bitte:

Delphi-Quellcode:

For I := 0 to ListBox1.Items.Count - 1 do
  If ListBox1.Selected[I] Then
    ListBox2.Items.Add(ListBox1.Items.Strings[I]);

[devnull]

Aso. Ich hab versucht, markierte Einträge zu löschen. Der oberste hat geklappt, bei dem Zweiten (Eintrag drunter) ist es dann hängengeblieben.


Also ich hab da eine FOR-Schleife verwendent:
  for i := 1 to ListBox2.Items.Index do ; oder so ähnlich

devnull

[axelf98]

Müsste so gehen:

Delphi-Quellcode:

var i : integer;
begin
 for i := 0 to listbox1.items.count - 1 do
 begin
  if listbox1.selected[i] then listbox2.items.add(Listbox1.items[i]);
 end;