首页 > 代码库 > 取消阴影行
取消阴影行
方法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;
取消阴影行
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。