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;
1条答案
按热度按时间busg9geu1#
AFAIK没有属性可以调整到在StringGrid的某个位置插入一行。
但是,你总是可以在代码中做一个 shift,在网格中为新的一行腾出空间。
假设你有一个第一行和列的 * 标题 *,你可以编码为:
字符串