Sorry, hatte vergessen zu erwähnen dass das Ganze unter lazarus läuft, da gibts diesen Dialog leider nicht
Ich könnte Dir das Formular hier einstellen oder mailen - ich weiss aber nicht, ob das legal ist.
Aber ich geb' Dir mal etwas Code zum Verschieben von Listbox-Items.
Delphi-Quellcode:
// Alle selektierten Items einer ListBox in die Liste "Items" verschieben
// die Reihenfolge der selektierten Items bleibt erhalten
// anhängende Objekte werden mitverschoben
class procedure TDualListDlg.MoveSelected(List: TCustomListBox; Items: TStrings);
var
I, ipos: Integer;
tmp:string;
begin
ipos := Items.Count; // Einfügeposition (am Ende)
for I := List.Items.Count - 1 downto 0 do
if List.Selected[I] then
begin
Items.InsertObject(ipos, List.Items[I], List.Items.Objects[I]);
List.Items.Delete(I);
end;
end;
Beispielaufrufe:
Delphi-Quellcode:
MoveSelected(ListBoxAlleStoffe, ListBoxGewaehlteStoffe.Items);
// oder rückwärts
MoveSelected(ListBoxGewaehlteStoffe, ListBoxAlleStoffe.Items);