[Cave]

Здравствуйте. Требуется ваша помощь. Уже второй день не могу сообразить.
Имеется код для перемещения строк по FileListBox вверх/вниз.
Как сделать чтобы при перемещении строки , перемещаемая строка оставалась выделенной?
Код работает как положено, но как-то нелогично получается когда выделил строку нажал кнопку "вверх"
и выделение пропало. Хочется добиться аккуратного эффекта.

Код:

{выделяем и перемещаем вверх}
procedure TForm9.act_UpExecute(Sender: TObject);
begin
   if FileListBox1.ItemIndex < 0 then exit;
   if FileListBox1.ItemIndex = 0 then
    begin
     FileListBox1.Items.Move(0, Pred(FileListBox1.Items.Count));
     FileListBox1.ItemIndex := Pred(FileListBox1.Items.Count)
    end
  else
    FileListBox1.Items.Exchange(FileListBox1.ItemIndex, Pred(FileListBox1.ItemIndex));
end;

{выделяем и перемещаем вниз}
procedure TForm9.act_DownExecute(Sender: TObject);
begin
   if FileListBox1.ItemIndex < 0 then exit;
   if FileListBox1.ItemIndex = Pred(FileListBox1.Items.Count) then
    begin
     FileListBox1.Items.Move(Pred(FileListBox1.Items.Count), 0);
     FileListBox1.ItemIndex := 0
    end
  else
    FileListBox1.Items.Exchange(FileListBox1.ItemIndex, Succ(FileListBox1.ItemIndex));
end;

[Kailon]

Пропадание выделения строки наблюдается если у FileListBox включено свойство MultiSelect. В противном случае всё работает как надо. Если MultiSelect не требуется, то отключите его.

[Cave]

Сообщение от Kailon

Пропадание выделения строки наблюдается если у FileListBox включено свойство MultiSelect. В противном случае всё работает как надо. Если MultiSelect не требуется, то отключите его.

Спасибо. Так и есть, стоял MultiSelect, но теперь не работают проверки на выделение пунктов

Код:

procedure TForm9.act_DownUpdate(Sender: TObject);
begin
   TAction(Sender).Enabled:= FileListBox1.SelCount > 0;
end;

[Kailon]

А зачем тогда Вам нужен был MultiSelect если в итоге перемещается только одна строка, вне зависимости от того сколько их выбрано. И что за проверки на выделение пунктов?

[Cave]

Сообщение от Kailon

А зачем тогда Вам нужен был MultiSelect если в итоге перемещается только одна строка, вне зависимости от того сколько их выбрано. И что за проверки на выделение пунктов?

Хотел чтобы можно было выбирать по несколько пунктов. Как то включал эту опцию и не снял её. Только что нашел решение проверки. Оставлю, вдруг кому понадобится

Код:

begin
   if FileListBox1.itemindex > -1 then TAction(Sender).Enabled:= true else
    TAction(Sender).Enabled:= false;
end;

[Kailon]

Сообщение от Cave

...Оставлю, вдруг кому понадобится...

Оставлять решение проблемы это хорошие манеры

[vijohet345]

Сообщение от Cave

Хотел чтобы можно было выбирать по несколько пунктов. Как то включал эту опцию и не снял её. Только что нашел решение проверки. Оставлю, вдруг кому понадобится

Код:

begin
   if FileListBox1.itemindex > -1 then TAction(Sender).Enabled:= true else
    TAction(Sender).Enabled:= false;
end;

Благодарствую вас за решение проблемы! Столкнулся с этой проблемой, вы помогли.