delphi用按钮删除stringgrid中的用鼠标选中的行

2011-05-27 11:33:41| 分类： delphi | 标签：stringgrid integer delphi vcol vrow |字号大中小 订阅 首先修改属性：StringGrid1->options->goRowSelect 设为True;

//删除行

procedure DeleteStringGridRow(vRow: Integer; StringGrid: TStringGrid); var

i: Integer; begin

if StringGrid.RowCount > vRow then begin

for i := vRow to StringGrid.RowCount - vRow do begin

StringGrid.Rows[i] := StringGrid.Rows[i+1]; end;

StringGrid.RowCount := StringGrid.RowCount - 1; end; end;

//删除列

procedure DeleteStringGridCol(vCol: Integer; StringGrid: TStringGrid); var

i: Integer; begin

if StringGrid.ColCount > vCol then begin

for i := vCol to StringGrid.colcount - vCol do begin

StringGrid.cols[i] := StringGrid.cols[i+1]; end;

StringGrid.colcount := StringGrid.colcount - 1; end; end;

procedure TForm1.Button1Click(Sender: TObject); var

vSelRow: Integer; begin

//得到所选行

vSelRow := StringGrid1.Row; //删除所选行

DeleteStringGridrow(vSelRow, StringGrid1); end;