delphi - 使用delphi在TStringGrid中通过鼠标单击删除选定的行

Question

我不确定如何捕获鼠标单击选择的行，然后按一个按钮以删除delphi的stringGrid中的所选行。

procedure DeleteRow(Grid: TStringGrid; ARow: Integer);
var
  i: Integer;
begin
  for i := ARow to Grid.RowCount - 2 do
    Grid.Rows[i].Assign(Grid.Rows[i + 1]);
  Grid.RowCount := Grid.RowCount - 1;
end;

procedure TManageUsersForm.RemoveRowButtonClick(Sender: TObject);
var
  Recordposition : integer;
begin
  UserStringGrid.Options := UserStringGrid.Options + [goEditing];
  UserStringGrid.Options := UserStringGrid.Options + [goRowSelect];
end;

因此，第一个过程是删除行，第二个过程是确保当用户单击一个单元格时，整个行都将突出显示，而不仅仅是那个单元格。

鼠标单击是最重要的部分！

谢谢 ：）

Answer 1

鼠标单击不是最重要的部分。用户可以通过键盘或鼠标选择一行，没关系，您只想删除当前行。如果单击鼠标，否则可以通过Row获得当前行。

procedure DeleteCurrentRow(Grid: TStringGrid);
var
  i: Integer;
begin
  for i := Grid.Row to Grid.RowCount - 2 do
    Grid.Rows[i].Assign(Grid.Rows[i + 1]);
  Grid.RowCount := Grid.RowCount - 1;
end;

称它为

DeleteCurrentRow(UserStringGrid);