stringgrid指定某个网格的颜色 (50分)

C

cnbobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #1

stinggrid的一个格子是红色，
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
label1.Color:=stringgrid1.color//这句话应怎么写；label1.Color要=红色
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #2

直接在 TForm1.StringGrid1DrawCell 中根据行、列及单元格的值：
ACol ARow 和 StringGrid1.cells(aCol,aRow)
来设置 Canvas.Brush.Color 。
不要在其它地方另外设置 color

 

C

cnbobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #3

。

 

D

DELPHI鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #4

来晚了

 

三

三点

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #5

使用jsxjd所说的方法！

 

C

catchan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #6

在StringGrid1控件的OnDrawCell事件中，用以下代码即可：
StringGrid1->Canvas->Brush->Color = clRed;
StringGrid1->Canvas->FillRect(Rect);
if (State.Contains(gdFocused))
StringGrid1->Canvas->DrawFocusRect(Rect);
StringGrid1->Canvas->TextOutA(Rect.left,Rect.top,StringGrid1->Cells[ACol][ARow]);
}

 

C

cnbobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #7

多人接受答案了。