【结贴】TStringGrid 的 DrawCell 属性**

lixy

别争执了。点不出来是正常的，delphi6和delphi7应该都可以编译通10楼代码
  StringGrid1.OnDrawCell:=StringGrid1DrawCell;   //恢复事件的地址
这句。
x3也可以，
……
  public
  procedure test(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
    {public declarations}
  end;

implementation


procedure TMainForm.test(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

end;
procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  StringGrid1.OnDrawCell:=test;
end;
我的测试代码。

crystal

还是不行啊，我原来第5行有内容的，现在还在不可显示

lixy

你调试下，如果代码跳进了你想指向的函数里面，那就是你代码的问题了。如果没跳进来，我们再找问题。

crystal

没跳进去～我现在这样写是否正确呢？
................
  public
    procedure test(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
  end;

procedure TQCCWSJ.test(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    Dialogs.ShowMessage(' ');
end;


procedure TQCCWSJ.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  c,q: integer;
begin
if(ARow=5)and(ACol>0)then     
   begin
      StringGrid1.Canvas.Brush.Color:=$FFECDD;
      StringGrid1.Canvas.FillRect(Rect);         
      StringGrid1.OnDrawCell:=nil;     
      try
          StringGrid1.OnDrawCell:=test;
      finally
          StringGrid1.OnDrawCell:=StringGrid1DrawCell;   
      end;
   end;

end;




行的颜色改变了。但是还是12楼，而且不弹出提示框

lixy

StringGrid1.Canvas.FillRect(Rect);
你这个把字都盖住了。

zfang

楼主，我做了一个简单的测试，不知道是否是你要的效果

crystal

回 15 楼： StringGrid1.Canvas.FillRect(Rect); 不是用 画颜色的？
回 16楼：我去试下

lixy

FillRect这个是填充一个矩形区域。填充，不留缝隙的。。

crystal

回16楼，效果可以实现，我已经按照来改了。现在已经实现想要的效果了。

结贴，，谢谢。。