全部展开
这是因为TStringGrid没有提供类似的方法。
那我只能画自己。
下面的代码假定一个名为Form2的窗体具有一个名为sGrid的TStringGrid。下面的代码实现此StringGrid OnDrawCellTForm2事件过程。
sGridDrawCell（Sender：TObject; ACol，ARow：Integer; Rect：TRect; State：TGridDrawState）; varTheGrid：TStringGrid; CellText：String; beginifnot（ARow = 1）thenExit; //确定条件是否满足条件的：= SenderasTStringGrid; //强制类型转换发送者。您可以通过多个StringGrid将此函数与TheGrid一起使用。
Canvasdobegin //如果绘制了单元格，则它将突出显示。否则，将使用ifgdSelectedinStatethenbeginBrush绘制指定的颜色。
颜色：= clHighlight；来源
颜色：= clHighlightText； endelsebeginBrush。
颜色：= clWindow;
颜色：= clRed; //这是需要设置的颜色。目前，这只是红色边缘。ifgdFixedinStatethenBrush开始。
颜色：= clBtnFace；结束； FillRect； //替换原始内容并绘制CellText：= TheGrid的背景。
行[ARow][ACol]; //单元格文字公司（右
Left，2）; //使用Windows API函数在文本区域的左边2个像素// //绘制DrawText文本（句柄，PChar（CellText），长度（CellText），Rect，DT_LEFTorDT_SINGLELINEorDT_VCENTERorDT_END_ELLIPSIS）。结束;结束;
