drag drop listbox

Sådan meget kort og uden nogen fejl check:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
    Accept:=true;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
    (Sender as TListBox).Items.Add((Source as TListBox).Items[(Source as TListBox).ItemIndex] );
  (Source as TListBox).DeleteSelected;
end;

Sæt ListBox2´s DragOver og DragDrop til at pege på de samme procedurere. Sæt begge ListBoxes DragMode til dmAutomatic

jeg får en fejl på DeleteSelected

den er ikke defineret vil jeg tro

Hvilken Delphi version bruger du?

Men ellers prøv at erstatte linien med DeleteSelected med denne:
(Source as TListBox).Items.Delete((Source as TListBox).ItemIndex);

jeg bruger d5 interprise

men det virker nu

takker kroning du er bare super

smid et svar ss

ok