那位兄弟帮我看一下STRINGRID删除行的DEBUG？
procedure Ttmq_jhdfrm.dcgridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:cardinal;
begin
case key of
VK_DELETE:if ssCtrl in Shift then
if MessageDLG('确定要删除本行吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
with TStringGrid(Sender) do
begin
DeleteRows(dcgrid);
for i:=1 to dcgrid.RowCount-1 do
dcgrid.Cells[0,i]:=IntToStr(i);
end;
end;
end;
删除行，然行下一行顶上的效果，但是只有一行时却把第一行和表头也删除了~
问题点数：20、回复次数：3Top
1 楼wudi_1982（向伴水学习|胃出血，住院中）回复于 2006-05-03 09:44:26 得分 0
你判断一下不就可以了，删除前，你判断是否只有一行，然后再进行相应操作不就可以了。Top
2 楼supervisors（一个惭愧的学生）回复于 2006-05-03 13:02:19 得分 0
试试看，Top
3 楼newfang（传说中的MIC）回复于 2006-05-03 14:36:28 得分 0
8错，删除前要判断的！Top
