Delphi StringGrid使用全書1
發布: 2008-5-19 10:19 | 作者: 不詳 | 來源: Blog - 風之谷 | 查看: 472次 | 進入軟件測試論壇討論
if (acol = 4) and not (arow = 0) then
with stringgrid1 do
begin
canvas.Brush.color := clYellow;
canvas.FillRect(Rect);
canvas.font.color := clblue;
dx:=2;//調整此值，控制字在網格中顯示的水平位置
dy:=2;//調整此值，控制字在網格中顯示的垂直位置
canvas.TextOut(rect.left+dx , rect.top+dy , cells[acol, arow]);
end;
//控制標題欄的對齊
if (arow = 0) then