Delphi - 如何在TStringGrid中设置垂直滚动条,始终可见

在Delphi中，要在TStringGrid中设置垂直滚动条，始终可见，可以使用以下步骤：

在TStringGrid的属性中，设置ScrollBars为ssVertical。
在TStringGrid的OnDrawCell事件中，使用以下代码绘制垂直滚动条：

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ARow = StringGrid1.RowCount - 1 then
  begin
    StringGrid1.Canvas.Pen.Color := clBtnFace;
    StringGrid1.Canvas.Brush.Color := clBtnFace;
    StringGrid1.Canvas.Rectangle(Rect);
  end;
end;

这段代码将在TStringGrid的最后一行绘制一个空白的单元格，并将其颜色设置为与滚动条相同的颜色，从而使滚动条始终可见。

希望这个答案能够帮助到您！