Как работать с выделенными запясями в TDBGrid? |
Previous Top Next |
Code: |
{ In the "Object Inspector" set your DBGrid's Option for dgMultiSelect = True. The Grid_Edit function calls for each selected DBGrid-Row a data-processing function. Return value is the number of processed rows. }
function TForm1.Grid_Edit(dbgIn: TDBGrid; qryIn: TQuery): Longint; // declared in the private section begin Result := 0; with dbgIn.DataSource.DataSet do begin First; DisableControls; try while not EOF do begin if (dbgIn.SelectedRows.CurrentRowSelected = True) then begin { +++ Call here the data-processing function +++
} Inc(Result); end; Next; end; finally EnableControls; end; end; end;
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Caption := 'Processed: ' + IntToStr(Grid_Edit(DBGrid1, Query1)); end; |
©Drkb::03041
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php