Listbox igen igen

Du kan du ikke uden en bunke kodning med en standard TListBox. Kig på www.torry.net efter en der kan.

ok

Kig på Items.Move...

Fra hjælpen:

Changes the position of a string in the list.

procedure Move(CurIndex, NewIndex: Integer); virtual;

Description

Use Move to move the string at position CurIndex so that it occupies the position NewIndex. The positions are specified as 0-based indexes. For example, the following line of code moves the string in the first position to the last position.

MyStringsObject.Move(0, MyStringsObject.Count - 1);

If the string has an associated object, the object remains associated with the string in its new position.

Måske det her kan bruges:

procedure TFagForm.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  ItemIndex: Integer;
begin
  if ssCtrl in Shift then
    case Key of
      VK_UP: ListBox1.Items.Move(ListBox1.ItemIndex, ListBox1.ItemIndex - 1);
      VK_DOWN: begin
                ItemIndex := ListBox1.ItemIndex;
                ListBox1.Items.Move(ListBox1.ItemIndex, ListBox1.ItemIndex + 1);
                ListBox1.ItemIndex := ItemIndex;
              end;
    end;
end;

den fungere fint :)