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;