Delphi10.3的ListView學習(大圖標）

萬一的 Delphi 博客，基礎學習ListView

使用 TListView 控件(1)

使用 TListView 控件(2)

使用 TListView 控件(3)

使用 TListView 控件(4)

---

這里強調一下，ImageList是可以改圖片尺寸的:最大256*256  Delphi7無限制

  

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;