dragDrop mit TListbox, Objekt übernehmen

[khh]

danke dir, werd ich so mal probieren

Gruss KHH

[khh]

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

[khh]

ich habs,
für die die es interessiert:

Code:

 Fzusatzstoffe := Thwdlisteninhalt(Fhwdzusatzstoffelist.items[i]);
 id := Fzusatzstoffe.DATENBANK_ID;

Ich danke euch

Gruss KHH