Hallo zusammen,
mit
artauswahlListBox.Items.AddObject(fzusatzartikel.B ezeichnung, fzusatzartikel);
fülle ich eine Listbox.
Der Anwender kann nun per drag and drop einzelne Artikel in eine zweite Listbox kopieren.
mit:
CopySelected(artauswahlListBox, artbestandListBox.Items);
Code:
procedure CopySelected(List: TCustomListBox; Items: TStrings);
var
I, ipos: Integer;
tmp:string;
test: integer;
begin
ipos := Items.Count; // Einfügeposition (am Ende)
// debug
test := List.Items.Count;
for I := List.Items.Count - 1 downto 0 do
if List.Selected[I] then
begin
Items.InsertObject(ipos, List.Items[I], List.Items.Objects[I]);
// List.Items.Delete(I);
end;
end;
wird der Eintrag in die zweite Listbox kopiert.
mit:
test := artbestandListBox.Items.Strings[i];
komme ich nur an die Artikelbezeichnung.
Wie komme ich an das ganze Objekt das auch die artikel_id enthält.
Steh mal wieder grad auf der Leitung
Danke Gruss KHH