通过网盘分享的文件：DrawGrid.rar链接:https://pan.baidu.com/s/1ihZ1wFkPEVxr4v02dgMFVA提取码:81etprocedureTForm8.FormCreate(Sender:TObject);beginDrawGrid1.FixedRows:=0;DrawGrid1.FixedCols:=0;//去掉固定列DrawGrid1.RowCount:=3;

https://www.packtpub.com/en-us/product/delphi-cookbook-second-edition-9781785287428/chapter/delphi-basics-1/section/using-owner-draw-combos-and-listboxes-ch01lvl1sec12  procedureTForm7.ListBox1DrawItem(Control:TWinControl;Index:Integer;Rect: