delphi - 在 Delphi 中填充 TStringGrid

Question

我的 delphi 表单上有一个 TStringGrid 说 StringGrid1 和一个文本框说 textbox1 。当我在 textbox1 中输入任何内容时，它会出现在 StringGrid1 的下一行。

我希望 StringGrid1 中的新条目应该位于顶部而不是底部。我应该更改哪个属性？

Answer 1

AFAIK 没有属性可以调整以在 StringGrid 的某个位置插入一行。

但是，您始终可以更改代码以在网格中为新行腾出空间。

假设您有第一行和第一列标题，您可以将其编码为：

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  for I := StringGrid1.RowCount - 1 downto 1 do
    StringGrid1.Rows[I] := StringGrid1.Rows[I - 1];
  StringGrid1.Cols[1][1] := Edit1.Text;
  //the commented line comes from my quick test.
  //Edit1.Text := IntToStr(StringGrid1.RowCount);
end;