MultiDelete/Recall on DBGrid Records

				
!**************************************
! Name: MultiDelete/Recall on DBGrid Records
! Description:After we will Display table records on DBgrid, we usually use navigator to control DBgrid records.So for Delete & Recall functions which will delete only one record at a time. My code can do Multiple Records Delete and Multiple deleted Records Recall at a time.
! By: VICKY
!
! Inputs:DBGrid proferties:-Options-MultiSelect=True
!
! Returns:will delete the record from grid
!
! Side Effects:need to put grid display color if record deleted the display some gray...like that.if not normal color.
!
!This code is copyrighted and has! limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=541&lngWId=7!for details.!**************************************

var i: integer;
begin
 if MessageDlg('Recall Selected Record(s)?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
 begin
with wwdbgrid1,wwdbgrid1.datasource.dataset do begin
 DisableControls;
 for i:=0 to SelectedList.count-1 do begin
 GotoBookmark(selectedlist.items[i]) ;
 FreeBookmark(selectedlist.items[i]) ;
 MailInApollo.Recall;
 end; //
 selectedlist.clear;
 EnableControls;
 end; //
 end; // msgdlg
procedure TInBoxForm.Delete1Click(Sender: TObject);
var i:integer;
begin
if MessageDlg('Delete Selected Record(s)?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
TRY
TrashBoxTable.open;
EXCEPT
on EDatabaseError do
 begin
 Showmessage('Cannot open TRASHBOX !');
 EXIT
 end;
END;
with wwdbgrid1,wwdbgrid1.datasource.dataset do begin
 DisableControls;
 for i:=0 to SelectedList.count-1 do begin
 GotoBookmark(selectedlist.items[i]) ;
 FreeBookmark(selectedlist.items[i]) ;
 MainForm.UpdRecord(wwdbgrid1.datasource.dataset, TrashboxTable,True);
 TrashboxTable.edit;
 TrashboxTable.fieldbyName('Type').asstring:='I';
 TrashboxTable.fieldbyName('Date').asdatetime:=
 MailInTable.fieldbyName('Date_recv').asdatetime;
 TrashboxTable.post ;
 Delete;
 end; //
 TrashboxTable.close;
 selectedlist.clear;
 EnableControls;
end; //
end;
end;