Question

如何动态设置stringgrid单元格的颜色

Answer 1

//以下代码测试通过.

procedure TForm1.FormShow(Sender: TObject);
var I,K:integer;
begin
//这里是给Stringgrid赋值,你那里得改成从Adoquery.fields中循环取值赋上了
for I:=0 to 3 do
for K:=0 to 5 do
Stringgrid1.Cells[I,K]:=inttostr(I)+inttostr(K);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
//这里是判断当前单元格的值,并修改颜色,你那里都没有对Stringgrild赋值.Adoquery中的值是不会自动到Stringgrid中去的.
//另外,你判断也不应该拿Adoquery中的值来判断,其实这个方法StringGrid1DrawCell并不是执行一次,是执行多次,Stringgrid 有多少个Cells这个事件就执行多少次,所以我们只要判断当前Cells值并给上不同颜色即可.
if Stringgrid1.Cells[Acol,ARow]<>'00' then
begin
StringGrid1.Canvas.Font.Color := clred; //字体颜色为红的
StringGrid1.Canvas.Brush.color:=clMoneyGreen; //背景为 美元绿色
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[acol,ARow]);
end;
end;