在Delphi中填充TStringGrid

Question

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

我希望StringGrid1中的新进入顶部而不是底部。我应该更改哪个属性？

Answer 1

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

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

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

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;