取消阴影行

Posted 2020-09-23 delphi学习交流吧

方法1：独立事件直接写法

procedure TForm3.N11Click(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 := False;
    frmDataPool.qry需要做的事.Post;
  end;
end;

方法2：类方法

unit UUnSelectShadow;

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 TUnSelectShadow =class
  public
  class procedure unselectedshadowrecord(SAdq:TADOQuery;SDBgrdh:TDBGridEh);
end;


implementation
class procedure TUnSelectShadow.unselectedshadowrecord(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 := False;
    Post;
    end;
  end;
end;

end.

类方法引用：记住uses中添加引用类单元名 UUnSelectShadow；

procedure TForm3.N11Click(Sender: TObject);
begin
TUnSelectShadow.unselectedshadowrecord(frmDataPool.qry需要做的事,dbgrdh1);  //取消阴影行
end;