Delphi StringGrid使用全书1

领测软件测试网

tn S%K(U_r
m e3n9_\+Y}V)v tif (acol = 4) and not (arow = 0) then
d3Q!N*|6Vn*t　 with stringgrid1 do 软件测试技术门户^oaR%A9hOT
　 begin
InoQb4D)Wve%f　　 canvas.Brush.color := clYellow;
;J9G:gHBN{~　　 canvas.FillRect(Rect); 软件测试技术门户 IjZB)gWf'S
　　 canvas.font.color := clblue; 软件测试技术门户"[8Zs'W}.Dh
　　 dx:=2;//调整此值，控制字在网格中显示的水平位置
,B4_~K dT\w　　 dy:=2;//调整此值，控制字在网格中显示的垂直位置 软件测试技术门户Uc*Yw/g_M{4qk+}
　　 canvas.TextOut(rect.left+dx , rect.top+dy , cells[acol, arow]);
_|#}b0~Y:@　 end; 软件测试技术门户+]A/Q|` U:M
//控制标题栏的对齐 软件测试技术门户T"K5d x})Trn
if (arow = 0) then 软件测试技术门户-k@o6O"F