Delphi:列表视图中的Canvas.FillRect

var
  ListView: TListView;
begin
  ListView := TListView.Create(Self);
  ListView.Parent := Self;
  ListView.Align := alClient;
  ListView.Width := 300;
  ListView.Height := 200;

  // 创建一个TImage对象并设置其Parent为ListView
  Image := TImage.Create(Self);
  Image.Parent := ListView;
  Image.Align := alClient;
  Image.Width := 100;
  Image.Height := 100;

  // 创建一个TCanvas对象并设置其Parent为ListView
  Canvas := TCanvas.Create(Self);
  Canvas.Parent := ListView;
  Canvas.Align := alClient;
  Canvas.Width := 300;
  Canvas.Height := 200;

  // 使用Canvas.FillRect方法填充矩形区域
  Canvas.FillRect(Rect(0, 0, 300, 200));

  // 将ListView和Image绑定到Canvas上
  ListView.Canvas := Canvas;
  Image.Canvas := Canvas;

  // 显示列表视图
  ListView.Show;
end;