checklistbox ve spin buton kontrolü

[droxee]

sa.
formumda 1 adet checklistbox ve aşağı yukarı ok simgeleri bulunan spin butonum var.
checklistbox içindeki itemlerin yerlerini değiştirmek için kullacağım spin butonun focus control diye bir özelliği var buradan checklistbox u seçiyorum ve itemlerin sıralarında bir değişiklik olmuyor.konu hakkında bilgisi olan arkadaşlardan bir fikir istiyorum.
kolay gelsin herkese iyi çalışmalar

[SimaWB]

Item'ların yerini değiştirmek için Items.Move(CurIndex, NewIndex: Integer) kullanabilirsiniz.

[droxee]

Item'ların yerini değiştirmek için Items.Move(CurIndex, NewIndex: Integer) kullanabilirsiniz.

cevap için teşekkürler kardeşim peki itemin en başa veya en sona geldiğinin kontrolü konusunda bir yardımın olabilir mi? veya diğer arkadaşlar sesleniyorum...

[SimaWB]

Kod: Tümünü seç

procedure TForm1.SpinButton1DownClick(Sender: TObject);
var
  CurrentInd: integer;
begin
  with CheckListBox1 do begin
    if (ItemIndex = -1) or (ItemIndex = Count-1) then
      Exit;
    CurrentInd := ItemIndex;
    Items.Move(CurrentInd, CurrentInd + 1);
    ItemIndex := CurrentInd + 1;
    SetFocus;
  end;
end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);
var
  CurrentInd: integer;
begin
  with CheckListBox1 do begin  
    if ItemIndex < 1 then
      Exit;
    CurrentInd := ItemIndex;
    Items.Move(CurrentInd, CurrentInd - 1);
    ItemIndex := CurrentInd - 1;
    SetFocus;
  end;
end;

[droxee]

çok teşekkür ederim.