Question

怎样在stringgrid中设置单元格的背景颜色，字体颜色

Answer 1

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
str:String;
FRect:TRect;
begin
Str:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
FRect:=StringGrid1.CellRect(StringGrid1.Col,StringGrid1.Row);
StringGrid1.Canvas.Brush.Color:=clRed;
StringGrid1.Canvas.Font.Color:=clWhite;
StringGrid1.Canvas.FillRect(FRect);
StringGrid1.Canvas.TextRect(FRect,Str);
end;