Question

在delphi的stringgrid单元格如何显示不同颜色？

客房状态（客房号，客房类型，状态）；
例如：001，单人房，预定房
002，双人房，脏房
......

问题：我想把表中的每条记录显示在stringgrid的单元格里；而且不同的状态，单元格显示不同的颜色，就是所谓的客房状态图吧。

怎么实现？详细说说。多谢了！

我想用如下代码事件现实，但是真的不知怎么做了！！

procedure Troomstateform.stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
i,j:integer;
begin
//----------------- 描绘 ---------------------
for j:=0 to stringgrid1.RowCount-1 do
begin
for i:=0 to stringgrid1.ColCount-1 do
begin
data.roomstateADOQuery.Close;
data.roomstateADOQuery.SQL.Clear;
data.roomstateADOQuery.SQL.Add('select 状态 from 客房状态');
data.roomstateADOQuery.Open;
if Not data.roomstateADOQuery.Eof then
begin
if data.roomstateADOQuery.fieldbyname('状态').AsString='脏房' then
begin
with (Sender as TStringGrid) do
StringGrid1.Canvas.Brush.Color := clBlue;
StringGrid1.Canvas.Textout(Rect.Left+2, Rect.Top+2,stringgrid1.Cells[acol, arow]);
end;
data.roomstateADOQuery.next;
end;
end;
end;
end;

//Stringgrid组件中的某组件被选择前触发改事件
procedure Troomstateform.stringgrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
//-------------- 刷新客房状态 --------------------
with data.roomstateADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('select * from 客房状态');
Open;
end;
end;
如图所示

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;

有问题再hi我了..