ListBox Einträge verschieben/kopieren - Progressbar

[Sh4d0w]

Danke, hab das nun auch hinbekommen!

Meine Lösung zum ersten Problem:

Delphi-Quellcode:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
begin
if source is TListbox then
begin
   accept:= true;
   ListBox1.Items.Move(ListBox1.ItemIndex,ListBox1.ItemAtPos(point(x,y),true));
   ListBox1.ItemIndex:= ListBox1.ItemAtPos(point(x,y),true);
   ListBox2.Items.Move(ListBox2.ItemIndex,ListBox2.ItemAtPos(point(x,y),true));
   ListBox2.ItemIndex:= ListBox2.ItemAtPos(point(x,y),true);
end
else
    accept:= false;
end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
ListBox2.ItemIndex:=-1;
i:=ListBox1.ItemIndex;
ListBox2.Selected[i]:=true
end;

Ich weiß nicht, ob ich jetzt noch einen Thread öffnen soll, aber während das Programm die Dateien kopiert...kann man da eine Fortschrittsanzeigen anzeigen lassen? Evtl. auch das normale von Windows...damit man weiß, wann das fertig kopiert wird.