Tstringgrid的颜色问题

Question

procedure Thz.Button1Click(Sender: TObject);
.................
 If RowNum>=2 Then
  begin
  //进行变化率分析  For i:=0 to ColNum-1 Do begin
    Try
      MidNum1:=(StrToFloat(db2.cells[i+1,1])-StrToFloat(db2.cells[i+1,2]))/StrtoFloat(db2.cells[i+1,1])*100;
      MidNum2:=Trunc(MidNum1);
      db2.Cells[i+1,5]:=IntToStr(MidNum2)+'%';
      If MidNum2>5 then Begin
        CurRow:=5;
        CurCol:=i+1;        db2.refresh;      End;
      If  MidNum2<-5 Then Begin
        CurRow:=5;
        CurCol:=i+1;
       db2.refresh;
      End;end;
procedure TForm1.db2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with db2 do
  begin
    if (ACol = 1) and (ARow =1) then
    begin
      Canvas.Brush.Color := clBlue;
      Canvas.FillRect(Rect);
      //Canvas.Font.Name := 'Courier New';
      //Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
    end;
  end;end;db2.refresh怎么不执行,请指教?

Answer 1

 If  MidNum2<-5 Then Begin//？？？
        CurRow:=5;
        CurCol:=i+1;
       db2.refresh;
分析问题所在你可以跟踪一下，看具体是走到什么地方了