چگونه سطر مورد نظر را در stringgrid حذف کنیم؟

[احسان آریانو]

:oops:
سلام لطفا دستور مورد نظر را در یک مثال به کار ببرید

ممنون ( آریانو )

[azhdari]

type Tstringgridhack=class(tstringgrid)
protected
procedure deleterow(Arow:longint);reintroduce;
procedure insertrow(Arow:longint);
end;

...
...
implementation
...
...

procedure Tstringgridhack.deleterow(Arow:longint);
var gemrow:integer;
begin
gemrow:=row;
if rowcount>fixedrows+1 then
inherited deleterow(Arow)
else
rows[Arow].Clear;
if gemrow<rowcount then row:=gemrow;
end;

procedure Tstringgridhack.insertrow(Arow:longint);
var gemrow:integer;
begin
gemrow:=row;
while arow<fixedrows do inc(arow);
rowcount:=rowcount+1;
moverow(rowcount-1,arow);
row:=gemrow;
rows[row].Clear;
end;


procedure Tform1.Button1Click(Sender: TObject);
begin
stringgrid1.Rows[stringgrid1.row].Clear; // it'll clear the selected row
Tstringgridhack(stringgrid1).deleterow(stringgrid1 .Row); // it'll delete the selected row
end;

[احسان آریانو]

خیلی ممنون دوست من مرسی از لطفت
( آریانو :sunglass: )