Fórum Dúvida com um ListBox... Coisa Simples. #323328

...
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to 20 do
    ListBox1.Items.Add(´Opção ´ + Format(´¬3.3d´, [I]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Botão ">"
  if not (ListBox1.ItemIndex = -1) then
  begin
    ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
    ListBox1.DeleteSelected;
  end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  // Mesmo efeito do click no botão ">" para o duplo click
  // no ítem do 1º ListBox. Isto pode ser feito no object
  // inspector, mas está no código para exemplificar.
  Button1Click(Self);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Botão "<"
  if not (ListBox2.ItemIndex = -1) then
  begin
    ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]);
    ListBox2.DeleteSelected;
  end;
end;

procedure TForm1.ListBox2DblClick(Sender: TObject);
begin
  // Mesmo efeito do click no botão "<" para o duplo click
  // no ítem do 2º ListBox. Isto pode ser feito no object
  // inspector, mas está no código para exemplificar.
  Button2Click(Self);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  // Botão ">>"
  while ListBox1.Items.Count > 0 do
  begin
    ListBox1.ItemIndex := 0;
    ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
    ListBox1.DeleteSelected;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  // Botão "<<"
  while ListBox2.Items.Count > 0 do
  begin
    ListBox2.ItemIndex := 0;
    ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]);
    ListBox2.DeleteSelected;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Já fica um mais simples e o ListBox se vira pra fazer o resto.
  ListBox1.MoveSelection(ListBox2);
end;

procedure TForm1.ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  if Target <> nil then
    // trata o fim de uma operacao que foi aceita
    ListBox1.MoveSelection(ListBox2);
end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Sender = ListBox1) and (Button = mbLeft) then
    ListBox1.BeginDrag(False); // inicia a operacao
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source = ListBox1 then
    ListBox1.EndDrag(True); // comanda o final da operacao
end;

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source = ListBox1 then
    Accept := True; // aceita se vier da lista
end;

ListBox1.SelectAll;
  ListBox1.MoveSelection(ListBox2);

ListBox2.SelectAll;
  ListBox2.MoveSelection(ListBox1);

// Implemenação do método MoveSelection de TCustomListControl
procedure TCustomListControl.MoveSelection(
  Destination: TCustomListControl);
begin
  CopySelection(Destination);
  DeleteSelected;
end;

// Implementação do método CopySelection de TCustomListBox
procedure TCustomListBox.CopySelection(Destination: TCustomListControl);
var
  I: Integer;
begin
  if MultiSelect then
  begin
    for I := 0 to Items.Count - 1 do
      if Selected[I] then
        Destination.AddItem(PChar(Items[I]), Items.Objects[I]);
  end
  else
    if ItemIndex <> -1 then
      Destination.AddItem(PChar(Items[ItemIndex]), Items.Objects[ItemIndex]);
end;