<div>
You will have to do it 'manually'. It does not work if you don't set the focus ont the item after it is moved. <br />
<br />
<br />
procedure TForm1.buttonUpClick(Sende<wbr />r: TObject);<br />
var x: integer;<br />
&nbsp; &nbsp; s1, s2: string;<br />
begin<br />
&nbsp; x := lstbox.ItemIndex;<br />
&nbsp; if x &gt;= 1 then<br />
&nbsp; &nbsp; begin<br />
&nbsp; &nbsp; &nbsp; s1 := lstbox.Items.Strings[x];<br />
&nbsp; &nbsp; &nbsp; s2 := lstbox.Items.Strings[x-1];<wbr /><br />
&nbsp; &nbsp; &nbsp; lstbox.Items.Strings[x] := s2;<br />
&nbsp; &nbsp; &nbsp; lstbox.Items.Strings[x-1] := s1;<br />
&nbsp; &nbsp; &nbsp; lstbox.ItemIndex := x-1;<br />
&nbsp; &nbsp; end;<br />
end;
</div>


You will have to do it 'manually'. It does not work if you don't set the focus ont the item after it is moved.


procedure TForm1.buttonUpClick(Sender: TObject);
var x: integer;
    s1, s2: string;
begin
  x := lstbox.ItemIndex;
  if x >= 1 then
    begin
      s1 := lstbox.Items.Strings[x];
      s2 := lstbox.Items.Strings[x-1];
      lstbox.Items.Strings[x] := s2;
      lstbox.Items.Strings[x-1] := s1;
      lstbox.ItemIndex := x-1;
    end;
end;

<div>
<div class="content wysiwyg-content">
well. I believe the title says it all.<br />
I've added to buttons Up and Down, which I'm trying to let the user organize the items displayed in the list view.<br />
<br />
Though I tried and tried I can't make it work. What can I do?<br />
<br />
I would like source code please.<br />
<br />
Thanks.
</div>
</div>


well. I believe the title says it all.
I've added to buttons Up and Down, which I'm trying to let the user organize the items displayed in the list view.

Though I tried and tried I can't make it work. What can I do?

I would like source code please.

Thanks.

How to move a lis item in a list view

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.