【结贴】TStringGrid 的 DrawCell 属性**

crystal

implementation
var
   XgForm : TXGQC;
   m,n : integer;
   intleArray : array of integer;
type
TMyGrid=class(TStringGrid)
end;

zfang

DrawCell这个方法有吗？
错误提示说没有定义改方法。

crystal

我定义了一个 TStringGrid  还要 定义 TStringGrid  的 DrawCel 方法？1楼代码我是在DELPHI7里测试过拿过来用。不知道还缺少什么东西。

zfang

调用OnDrawCell看看

crystal

改成 TMyGrid(StringGrid1).OnDrawCell(ACol,ARow,Rect,State); 的话

[错误]Biz:\JXC_GJP_\FUNC\JBXX\QCCWSJGN.FUNC.DIR\QCCWSJ.FORM.PAS(206, 32): Not enough actual parameters

zfang

TStringGrid能点出来drawcell吗？d6中我点不出来啊。

zfang

ondrawcellSender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState)

crystal

我是想给 StringGrid 给个底色。   我是在 DELPHI 7 里点出来的。
代码如下
if(ARow=5)and(ACol>0)then     //将第2行的背景变成红色
   begin
      StringGrid1.Canvas.Brush.Color:=$FFECDD;
      StringGrid1.Canvas.FillRect(Rect);         //画红色
      StringGrid1.OnDrawCell:=nil;     //设置为nil，下面就不会无限递归
      try
          //TMyGrid(StringGrid1).OnDrawCell(ACol,ARow,Rect,State);//如果注销这句 单元格的内容就 显示不出来了，直接被底色覆盖掉了
      finally
          StringGrid1.OnDrawCell:=StringGrid1DrawCell;   //恢复事件的地址
     end;
   end;

zfang

8楼的代码中没有看到你调用DrawCell方法啊。

crystal

procedure TQCCWSJ.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  c,q: integer;
begin

if(ARow=5)and(ACol>0)then     //将第2行的背景变成红色
   begin
      //StringGrid1.Canvas.Brush.Color := $FFECDD;
      StringGrid1.Canvas.Brush.Color:=$FFECDD;
      StringGrid1.Canvas.FillRect(Rect);         //画红色
      StringGrid1.OnDrawCell:=nil;     //设置为nil，下面就不会无限递归
      try
          TMyGrid(StringGrid1).OnDrawCell(ACol,ARow,Rect,State);
      finally
          StringGrid1.OnDrawCell:=StringGrid1DrawCell;   //恢复事件的地址
     end;

   end;
end;