stringgrid的着色问题?

Question

我在stringgrid 的drawcell事件里面做了这个函数
procedure TArrangeClassForm.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
   with StringGrid1 do
      begin
         if (((ARow= Krow) and (acol = kcol)) and not (acol = 0)) then
            begin
              Canvas.Brush.Color := clRed;
              Canvas.FillRect(Rect);
              Canvas.Font.Name := 'Courier New';
              Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
         end;
      end;
  end;然后在button的事件里面用了
Krow :=4;
kCol := 5;
为什么我在
krow := 4 里面设短点的时候就能在点击相应事件的同时显示,
但是为什么我不设断点的时候就不能显示啊.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);begin
Krow :=4;
kCol := 5;
StringGrid1.Repaint;
end;