老问题啦

大致的可以这样，不是很精确：
procedure TForm1.Button1Click(Sender: TObject);
var
  I,J: Integer;
  bShow: Boolean;
begin
  I := DBGrid1.DataSource.DataSet.RecordCount;
  J := DBGrid1.Height div DBGrid1.Canvas.TextHeight('A') - 1;
  if I > J then bShow := true
  else bShow := false;
  ShowScrollBar(DBGrid1.Handle,SB_VERT,bShow);
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————