Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
procedure TfrmMain.cmdMoveUpClick(Sender: TObject); var CurrIndex: integer; begin with lstSelectedImages do if ItemIndex > 0 then begin CurrIndex:=ItemIndex; Items.Move(ItemIndex, (CurrIndex - 1)); ItemIndex:=CurrIndex-1; SendMessage(lstSelectedImages.Handle, LB_SETCARETINDEX, ItemIndex, 0); end; end;
Join the community of 500,000 technology professionals and ask your questions.