delphi - DelphiでTStringGridを埋める

Question

デルファイフォームにTStringGridと言うStringGrid1と1つのテキストボックスと言うtextbox1があります。textbox1に何かを入力すると、StringGrid1の次の行に表示されます。

StringGrid1の新しいエンターテインメントは、下ではなく上に表示されるようにしたいと思います。どのプロパティを変更する必要がありますか？

Answer 1

AFAIKStringGridのある位置に行を挿入するために微調整できるプロパティはありません。

ただし、いつでもコードをシフトして、グリッド内に新しい行用のスペースを作成できます。

タイトルの最初の行と列があると仮定すると、次のようにコーディングできます。

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;