删除功能的按钮代码:procedure TForm1.Button1Click(Sender: TObject); var i: Integer; beginif not DBGrid1.DataSource.DataSet.IsEmpty then{--如果DBGrid1所连接的数据记录不为空--} if DBGrid1.SelectedRows.Count>0 then {---如果选择的行数不为零---} with DBGrid1.DataSource.DataSet do for i:=0 to DBGrid1.SelectedRows.Count-1 do begin GotoBook(pointer(DBGrid1.SelectedRows.Items[i])); Delete; end; end;
options-->dgMultiselect-->true
var
i: Integer;
beginif not DBGrid1.DataSource.DataSet.IsEmpty then{--如果DBGrid1所连接的数据记录不为空--}
if DBGrid1.SelectedRows.Count>0 then {---如果选择的行数不为零---}
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
Delete;
end;
end;