listbox

delphi listbox 使用

listbox删除

删除选中的某个：
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  while i<listbox1.Count do//删除掉前一个后，下一个会上移，所以用while
  if listbox1.selected[i] then
     listbox1.Items.delete(i)
   else
   i:=i+1;
end;

删除listbox中所有的内容：
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
   for i:=0 to listbox1.Items.Count-1 do
      listbox1.Items.Clear;
end; 

(1)添加记录：ListBox1.Add(EditBox1.Text);//添加到末尾  
(2)插入记录：ListBox1.insert(0，EditBox1.Text);//添加到开头  
(3)选中的记录号：Rc := ListBox1. CurIndex;//Rc:string;  
(4)计数：Rn:=ListBox1.count;//Rn:integer;
//  Form1.ListBox1.Items[1]:='123'; 改变 
//  ShowMessage(listbox1.Items[listbox1.ItemIndex]);  显示当前数据 


按钮事件 向上移动
procedure TFormMain.RzBmpButton5Click(Sender: TObject);
var
  ActiveItem: Integer;
begin
  with lst2 do
  begin
    ActiveItem := ItemIndex;
    if (ItemIndex > 0) then
    begin
      Items.Move(ItemIndex, ItemIndex - 1);
      lst2.SetFocus;
      lst2.Selected[ActiveItem - 1] := True;
    end;
  end;
end;

向下移动
procedure TFormMain.RzBmpButton6Click(Sender: TObject);
var
  ActiveItem: Integer;
begin
  with lst2 do
  begin
    ActiveItem := ItemIndex;
    if (ItemIndex >= 0) and (ItemIndex < Items.Count - 1) then
    begin
      Items.Move(ItemIndex, ItemIndex + 1);
      lst2.SetFocus;
      lst2.Selected[ActiveItem + 1] := True;
    end;
  end;
end;

拖拽事件
procedure TFormMain.lst2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  StartingPoint.X := X;
  StartingPoint.Y := Y;
end;

procedure TFormMain.lst2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DropPosition, StartPosition: Integer;
  DropPoint: TPoint;
begin
  DropPoint.X := X;
  DropPoint.Y := Y;
  with Source as TRzListBox do
  begin
    StartPosition := ItemAtPos(StartingPoint, True);
    DropPosition := ItemAtPos(DropPoint, True);
    Items.Move(StartPosition, DropPosition);
  end;    
end;

procedure TFormMain.lst2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = lst2;
end;