如何自定义StringGrid中的对齐方式为居中 & 如何动态改变单个Cell的背景色和字体颜色？

[CyberUFO]

我想可以用自己绘制的方法（Delphi中），但我BCB刚入门，不知BCB中如何实现？
恳请众位相助！
26 是我目前的给分上限，如觉得分太少，可以再加！

[Chxis]

问了N次了,
搜一下StringGrid可一得到答案

[CyberUFO]

Thx Chxis!

[tombyron]

呵呵

这是我原来的编的程序中的一段代码,其中CellRect()用来获取选中的Cell的坐标
该段代码实现 选中的Cell颜色改变

procedure TMain_frm.FillFocuText;
var MRect0,MRect1:TRect;
begin
With StringSGrid do
begin
MRect0:=CellRect(0,TempInt);
Canvas.Font.Color:=Font.Color;
Canvas.Brush.Color:=Color;
Canvas.TextRect(MRect0, MRect0.Left+2, MRect0.Top+2, Cells[0,TempInt]);
//删除上一次点击时留下的颜色

MRect0:=CellRect(0,Row);
Canvas.Font.Color:=ClWhite;
Canvas.Brush.Color:=ClNavy;
Canvas.TextRect(MRect0, MRect0.Left+2, MRect0.Top+2, Cells[0,Row]);
//给这次选中的行着色

TempInt:=StringGrid.Row; //记录这一次选中的行数,以便下次使用
end;
end;

[jiangcfei]

你可以在STRINGGRID的ONDRAWCELL的事件中定义
DrawText(StringGrid1.Canvas.Handle,Pchar(stringgrid1.Cells[0, 1]), -1,
Rect,DT_RIGHT);
你就可以将STRINGGRID1.cells[0,1]的内容右对齐了。
如果有问题，你再提