Delphi StringGrid使用全书2

发表于:2008-05-19来源:作者:点击数: 标签:StringGridDELPHIDelphidelphi
关键字:Delphi StringGrid
如何实现在stringgrid中删除鼠标点中的那一行,下一行再顶上的效果?

procedure TForm1.Button1Click(Sender: TObject);
var
Sel : TGridRect;
begin
Sel := StringGrid1.Selection;
DeleteRow(Sel.Top);
end;

// delete row
procedure TForm1.DeleteRow(Row: Integer);
var
i : integer;
begin
if (Row < StringGrid1.RowCount) and (Row > Stringgrid1.FixedRows-1) then
 if Row < StringGrid1.RowCount - 1 then

原文转自:http://www.ltesting.net