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;