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 ...