StringGrid 删除行，行ID将不正确的解决方法

最新推荐文章于 2025-07-13 10:21:07 发布

原创最新推荐文章于 2025-07-13 10:21:07 发布 · 632 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #StringGrid #删除行

收录于

Delphi 专栏收录该内容

13 篇文章

订阅专栏

本文介绍如何在Delphi中使用TMyGrid类的MoveRow函数实现对字符串网格控件strngrdResult的行移动及删除操作。当选择顶部的行时，可以通过MoveRow函数将选定行移至另一位置，并随后清空并删除该行。

type

TMyGrid = class(TStringgrid);

//TMyGrid中将会有MoveRow函数，可以使用此函数移动行，然后进行删除，具体代码如下

procedure TFMMain.N1Click(Sender: TObject);

var
iRow : Integer;
begin
if strngrdResult.Selection.Top > 0 then
begin
iRow := strngrdResult.RowCount;
TMyGrid(strngrdResult).MoveRow(RowCount,strngrdResult.RowCount - 1);
strngrdResult.Rows[strngrdResult.RowCount - 1].Clear;
strngrdResult.RowCount := iRow - 1;
end;
end;