RzStringGrid,的最后一行的颜色与其它行不同

解决方案 »

  1.   

    procedure TForm1.RzStringGrid1DrawCell(Sender: TObject; ACol,
      ARow: Integer; Rect: TRect; State: TGridDrawState);
    begin
      with RzStringGrid1 do
       if (ARow=RowCount-1)and(ACol>0) then
          begin
            Canvas.Brush.Color:=clRed;
            Canvas.FillRect(Rect);
          end;
    end;
      

  2.   

    RzStringGrid,的最后一行
    -----------------------------
    是数据的最后一行,
    还是可看到控件界面的最后一行?
    ============================================================
    凭证控件:http://www.delphifans.com/SoftView/SoftView_610.html