Delphi TListView(TListBox+图标显示)
发布时间:2020-12-15 09:54:58 所属栏目:大数据 来源:网络整理
导读: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) lv
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. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |