delphi listbox 使用

最新推荐文章于 2020-07-28 07:26:28 发布

dingfen8597

最新推荐文章于 2020-07-28 07:26:28 发布

阅读量311

点赞数

原文链接：http://www.cnblogs.com/Asa-Zhu/archive/2012/08/31/2665191.html

版权

listbox删除删除选中的某个：procedure TForm1.Button1Click(Sender: TObject); var i:integer;begin i:=0; while i 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;

转载于:https://www.cnblogs.com/Asa-Zhu/archive/2012/08/31/2665191.html