Question

我想给单元格设置颜色啊 可是怎么搞 颜色就是不变啊【delphi】！

有人用过 TcxSpreadSheetBook 这个控件么？
我的代码如下 X=StrToInt(trim(EditColor.text)) - 1 Y=i-1 要把这个坐标下得单元格设置颜色
color := trim(cxSpreadSheetBook1.ActiveSheet.GetCellObject(StrToInt(trim(EditColor.text)) - 1, i - 1).Text);
if ChooseColor(color)=False then
begin
cxSpreadSheetBook1.ActiveSheet.GetCellObject(StrToInt(trim(EditColor.text)) - 1, i - 1).Style.Font.FontColor:=clRed;
cxSpreadSheetBook1.ActiveSheet.GetCellObject(StrToInt(trim(EditColor.text)) - 1, i - 1).Style.Brush.BackgroundColor:=clYellow;
//cxSpreadSheetBook1.ActiveSheet.GetCellObject(StrToInt(trim(EditColor.text)) - 1, i - 1).Style.Brush.ForegroundColor:=clGreen;
end;

请高手指教！

Answer 1

你的方法是对的，但所赋值不对。因为clGreen等是TColor类，而TcxSpreadSheetBook类要求的是word型的颜色值。TColor类的数值都超出了word的范围，所以赋值失败。比如，要想赋兰色，可用22，其他颜色自己测试一下就知道了。祝你好运！gz119@21cn.com

Answer 2

您是说文档的word的单元格吗？

Answer 3

我不懂

希望你成功谢谢