Zitat von
mlspider:
Jetzt ist die Verwirrung komplett.
Dein Problem ist doch, dass durch ListBox1.Items:=(Source as TFileListBox).Items; der Komplette Inhalt der ListBox übertragen wird. Um nur die ausgewählten Einträge zu übernehmen musst du also ein Schleife über die Einträge machen.
Delphi-Quellcode:
for Dummy:=0 to (Source as TFileListBox).Items.Count-1 do
begin
if (Source as TFileListBox).Items.Selected[Dummy] then
ListBox1.Items.Add( Source as TFileListBox).Items[Dummy]);
end;
In der Hoffnung, dich nicht noch mehr zu verwirren
