万一的 Delphi 博客,基础学习ListView
这里强调一下ImageList是可以改图片尺寸的:最大256*256
procedure TForm1.FormCreate(Sender: TObject); begin ImageList1.Width:=256;//1..256 ImageList1.Height:=256;//1..256 ListView1.LargeImages:=ImageList1; // 大图标 放在ImageList1,放在ImageList1 ListView1.ViewStyle := vsIcon; //设成 大图标 模式 // 增加记录 with ListView1.Items.Add do begin Caption := '111'; ImageIndex:=0; end; with ListView1.Items.Add do begin Caption := '222'; ImageIndex:=1; end; end;
单击某项Item的事件
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange); begin Caption:= Item.Caption; end;