本文整理自网络，侵删。
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;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
