方法1：單獨事件獨立直接寫法

procedure TForm3.N10Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to dbgrdh1.SelectedRows.Count-1 do
  begin
    frmDataPool.qry需要做的事.GotoBookmark(pointer(dbgrdh1.SelectedRows.Items[I]));
    frmDataPool.qry需要做的事.Edit;
    frmDataPool.qry需要做的事.FieldByName(‘選中‘).AsBoolean := True;
    frmDataPool.qry需要做的事.Post;
  
 
end;
end;

方法2：類方法

unit USelectShadow;

interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB, Data.Win.ADODB,
  Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Clipbrd, Vcl.Menus,
  Vcl.StdCtrls, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh,
  EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh,EhLibADO,DBGridEhImpExp;

 
type TSelectShadow =class
  public
  class procedure selectedshadowrecord(SAdq:TADOQuery;SDBgrdh:TDBGridEh);
end;


implementation
class procedure TSelectShadow.selectedshadowrecord(SAdq: TADOQuery; SDBgrdh: TDBGridEh);
  var
  I: Integer;
begin
  for I := 0 to SDBgrdh.SelectedRows.Count-1 do
  begin
 

    with SAdq do
    begin
    GotoBookmark(pointer(SDBgrdh.SelectedRows.Items[I]));
    Edit;
    FieldByName(‘選中‘).AsBoolean := True;
    Post;
    end;
  end;
end;

end.

類引用：記得在所要引用的單元uses中加上該引用類單元名（USelectShadow）；

procedure TForm3.N10Click(Sender: TObject);
begin
TSelectShadow.selectedshadowrecord(frmDataPool.qry需要做的事,dbgrdh1);
end;

選中陰影行