در مورد StringGrid

[K.Mohammadreza]

لطفا جواب دهيد
چطور مي توانم سر انتخاب شده در يک StringGrid را حذف کنم؟

[merced]

procedure DeleteRow(yourStringGrid: TStringGrid; ARow: Integer);
var
i, j: Integer;
begin
with yourStringGrid do
begin
for i := ARow to RowCount - 2 do
for j := 0 to ColCount - 1 do
Cells[j, i] := Cells[j, i + 1];
RowCount := RowCount - 1
end;
end;

[rk1983xx]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,x:integer;
begin
if StringGrid1.RowCount>2 then
begin
x:=StringGrid1.Row;
for i := x to StringGrid1.RowCount-1 do
StringGrid1.rows[i]:=StringGrid1.rows[i+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;

end;

end;