在 Delphi 中填充TStringGrid

yhived7q  于 9个月前  发布在  其他
关注(0)|答案(1)|浏览(130)

我有一个TStringGrid说StringGrid1和一个文本框说textbox1在我的 Delphi 形式。当我在textbox1中输入任何东西,这是在下一行的StringGrid1。
我希望StringGrid1中的新条目应该在顶部而不是底部。我应该更改哪个属性?

busg9geu

busg9geu1#

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;

字符串

相关问题