Wert von Object geht bei Drag&Drop zw. Listboxen verloren

[Grolle]

Hallo,

ich habe Drag and Drop zwischen 2 (HTM)Listboxen realisiert. Die Inhalte kommen
aus der Datenbank und jedem Eintrag wird per Object eine Integer ID zugewiesen.
Diese Werte sind nach dem Drag and Drop weg? Wie kann das sein?

Delphi-Quellcode:

procedure TForm7.HTMListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
var i,i2 : integer;
    lbSource,lbSender : THTMListBox;
begin
  lbSource := Source as THTMListBox;
  lbSender := Sender as THTMListBox;
  if lbSource <> lbSender then
    begin
      i:=0;
      while i<=lbSource.count-1 do
        begin
          if lbSource.Selected [i] then
            begin
              i2:=lbSender.ItemAtPos(point(x,y),false);
              lbSender.Items.insert(i2,lbSource.Items[i]);
              lbSource.Items.Delete (i);
              continue;
            end;
          inc(i);
        end;
    end;
end;

Viele Grüße ...

[SirTwist]

Zitat:

Zitat von Grolle

Diese Werte sind nach dem Drag and Drop weg? Wie kann das sein?

Ich kenn die HtmlListBox nicht, aber Items wird wahrscheinlich eine TStringList sein. Dann überträgst Du mit dem Insert erstmal nur den String des Eintrags, aber nicht das dazugehörige Objekt. Das Objekt müsstest Du einzeln ansprechen mit lbSource.Items.Objects[i]

Gruß,
SirTwist