本文整理自网络,侵删。

unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
Vcl.StdCtrls, Vcl.ComCtrls;
type
TForm1 = class(TForm)
lv1: TListView;
添加: TButton;
il1: TImageList;
btn删除选中: TButton;
清空: TButton;
btnDelete_select: TButton;
procedure 添加Click(Sender: TObject);
procedure btn删除选中Click(Sender: TObject);
procedure btnDelete_selectClick(Sender: TObject);
procedure 清空Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.添加Click(Sender: TObject);
begin
if lv1.Columns.Count = 0 then
lv1.Columns.Add.Caption := '111';
lv1.Column[0].width := 200;
with lv1.Items.Add do
begin
StateIndex := 2;
Caption := 'Item' + IntToStr(lv1.Items.Count);
end;
end;
procedure TForm1.清空Click(Sender: TObject);
begin
lv1.Clear;
end;
procedure TForm1.btnDelete_selectClick(Sender: TObject);
begin
lv1.Items[1].Delete;
end;
procedure TForm1.btn删除选中Click(Sender: TObject);
begin
lv1.Selected.Delete;
end;
end.
来源:https://www.cnblogs.com/YiShen/p/9733240.html
相关阅读 >>
老外写的在桌面添加快捷方式(Delphi xe5 android)
Delphi tstringlist utf8编码保存并开启bom
更多相关阅读请进入《Delphi》频道 >>