delphi ListBox批量选中转移或删除


本文整理自网络,侵删。

 unit unit1; 

interface

uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, checklst, buttons;

type
tform1 = class(tform)
lst1: tlistbox;
mmo1: tmemo;
btn1: tspeedbutton;
edt1: tedit;
btn2: tspeedbutton;
btn3: tspeedbutton;
btn4: tspeedbutton;
procedure btn3click(sender: tobject);
procedure btn4click(sender: tobject);
procedure btn1click(sender: tobject);
procedure btn2click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;

var
form1: tform1;

implementation

{$r *.dfm}

procedure tform1.btn3click(sender: tobject);
begin
lst1.items.add(edt1.text);
end;

procedure tform1.btn4click(sender: tobject);
begin
lst1.clear;
end;

procedure tform1.btn1click(sender: tobject);
var i,j:integer;
begin
j:=0;
for i := 0 to lst1.items.count - 1 do
begin
if lst1.selected[i] then
begin
mmo1.lines.add(lst1.items.strings[i]);
j:=j+1;
end;
end;

mmo1.lines.add('选定了'+inttostr(j)+'个对象');
end;

procedure tform1.btn2click(sender: tobject);
begin
mmo1.clear;
end;

end.

相关阅读 >>

Delphi 用文字作为窗体的形状

Delphi image上文字平滑移动

Delphi 写一个可拖动的 tshape

Delphi createthread的线程传参数(小熊论坛的)

Delphi varchar和nvarchar区别

Delphi xe5 android获取手机联系人,并用listview显示

Delphi url编码与解码工具附代码

Delphi获取其他进程中状态栏文本的函数

Delphi 禁用本地网络连接/启用本地网络连接

Delphi adoquery查询,如何得到查询记录数?

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...