oki
mit
Code:
class procedure TDualListDlg.MoveSelected(List: TCustomListBox; Items: TStrings);
var
I, ipos: Integer;
tmp:string;
begin
ipos := Items.Count; // Einfügeposition (am Ende)
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;
in etwas abgeänderter Form
und
Code:
MoveSelected(moeglichezusatzstoffeListBox, enthaltenezusatzstoffeListBox.Items);
kopiere(verschiebe) ich die Einträge in die ZielLisbox
funktioniert einwandrei.
Aber ich steh immer noch auf dem Schlauch
Wie komm ich jetzt an die Eintrage in der Zielbox ran? ich brauch dort nur die id?
Danke Gruss KHH