DELPHI的DBGRID有两个难点

DELPHI的DBGRID有两个难点：

一，每行都是一个BUTTON，且CAPTION不同

二，每行不同行高，且由用户拖动而不同高的

这两点我用CXGRID全做到了

一，

procedure TForm1.cxGrid1DBTableView1Column1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

var

www: tbutton;

i, j: integer;

begin

www:=nil;

try

for i := AViewInfo.GridView.Site.ComponentCount - 1 downto 0 do

begin

if AViewInfo.GridView.Site.Components[i] is tbutton then

begin

tbutton(AViewInfo.GridView.Site.Components[i]).Tag := -1;

if tbutton(AViewInfo.GridView.Site.Components[i]).Caption =

TcxGridDataCellViewInfo(AViewInfo).DisplayValue then

begin

www := tbutton(AViewInfo.GridView.Site.Components[i]);

end;

if TcxGridDataCellViewInfo(AViewInfo).Item.Caption = 'NAME' then

begin

if www = nil then

begin

www := tbutton.Create(AViewInfo.GridView.Site);

www.Visible:=false;

www.Parent := AViewInfo.GridView.Site;

www.Caption := TcxGridDataCellViewInfo(AViewInfo).DisplayValue; //inttostr(iii);

www.Tag := 1;

end;

www.SetBounds(AViewInfo.ClientBounds.Left, AViewInfo.ClientBounds.Top,

AViewInfo.ClientBounds.Right - AViewInfo.ClientBounds.Left, AViewInfo.ClientBounds.Bottom

AViewInfo.ClientBounds.Top);

www.Visible:=true;

end;

except

on e:exception do

begin

end

end;

procedure TForm1.cxGrid1DBTableView1TopRecordIndexChanged(Sender: TObject);

var

i,j:integer;

begin

try

for i := cxgrid1.ActiveView.Site.ComponentCount - 1 downto 0 do

begin

if cxgrid1.ActiveView.Site.Components[i] is tbutton then

begin

tbutton(cxgrid1.ActiveView.Site.Components[i]).Tag := -1;

for j := 0 to TcxGridDBtableView(cxgrid1.ActiveView).ViewInfo.RecordsViewInfo.VisibleCount do

begin

if tbutton(cxgrid1.ActiveView.Site.Components[i]).Caption =

TcxGridDataRowViewInfo(TcxGridDBtableView(cxgrid1.ActiveView).ViewInfo.RecordsViewInfo.Items[j]).CellViewInfos[0].DisplayValue then

tbutton(cxgrid1.ActiveView.Site.Components[i]).Tag := 1;

end;

if tbutton(cxgrid1.ActiveView.Site.Components[i]).Tag = -1 then

tbutton(cxgrid1.ActiveView.Site.Components[i]).Free;

end;

except

end;

procedure TForm1.cxGrid1DBTableView1ColumnSizeChanged(

Sender: TcxGridTableView; AColumn: TcxGridColumn);

var

i,j:integer;

begin

try

for i := cxgrid1.ActiveView.Site.ComponentCount - 1 downto 0 do

begin

if cxgrid1.ActiveView.Site.Components[i] is tbutton then

begin

tbutton(cxgrid1.ActiveView.Site.Components[i]).Tag := -1;

end;

if tbutton(cxgrid1.ActiveView.Site.Components[i]).Tag = -1 then

tbutton(cxgrid1.ActiveView.Site.Components[i]).Free;

end;

except

end;

二，

CXGRID中，只要GetCellHeight事件不为NIL，且optionsview中columnautowidth设为FALSE，即可以实现自动每行行高不同也。

如果要手工用户拖动而每行行高不同，可用下面代码

procedure TcxGridRowSizingObject.Init(const P: TPoint; AParams: TcxCustomGridHitTest);

var

www:tstringlist;

i,j:integer;

begin

inherited;

FRow := TcxCustomGridRow((AParams as TcxGridRowSizingEdgeHitTest).GridRecord);

if AParams.ViewInfo is tcxgridindicatorrowitemviewinfo then

begin

www:= tstringlist(tcxgridindicatorrowitemviewinfo( AParams.ViewInfo).GridView.Site.Tag);

if (www<>nil) then

begin

j:=0;

for i:=0 to www.Count-1 do

begin

if integer(www.Objects[i])=FRow.RecordIndex then

begin

www[i]:='-1';

j:=1;

break;

end;

if j=0 then

www.AddObject('-1',pointer(FRow.RecordIndex));

end;

procedure TForm1.Button1Click(Sender: TObject);

var

www:tstringlist;

begin

adotable1.active := true;

www:=tstringlist.Create;

cxgrid1.ActiveView.Site.Tag:=integer(pointer(www));

end;

procedure TForm1.cxGrid1DBTableView1GetCellHeight(

Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;

AItem: TcxCustomGridTableItem;

ACellViewInfo: TcxGridTableDataCellViewInfo; var AHeight: Integer);

var

www:tstringlist;

i,j:integer;

begin

www:=tstringlist(cxgrid1.activeview.site.tag);

if ((www<>nil) and (www.Count>0)) then

begin

j:=0;

for i:=0 to www.Count-1 do

begin

if integer(www.Objects[i])=arecord.RecordIndex then

begin

j:=strtoint(www[i]);

break;

end;

if j<>0 then

begin

if j=-1 then

www[i]:=inttostr(cxGrid1DBTableView1.OptionsView.DataRowHeight);

j:=strtoint(www[i]);

aheight:=j;

///

cxGrid1DBTableView1ColumnSizeChanged(nil,nil);

end;

///

procedure TForm1.cxGrid1DBTableView1ColumnSizeChanged(

Sender: TcxGridTableView; AColumn: TcxGridColumn);

var

i,j:integer;

begin

try

for i := cxgrid1.ActiveView.Site.ComponentCount - 1 downto 0 do

begin

if cxgrid1.ActiveView.Site.Components[i] is tbutton then

begin

tbutton(cxgrid1.ActiveView.Site.Components[i]).Tag := -1;

end;

if tbutton(cxgrid1.ActiveView.Site.Components[i]).Tag = -1 then

tbutton(cxgrid1.ActiveView.Site.Components[i]).Free;

end;

except

end;

DELPHI的DBGRID有两个难点相关推荐

二维码解码程序的两大难点问题
二维码解码程序的两大难点问题第一是如何对摄像头捕捉的PNG格式的图像数据进行解析,以及识别黑白模块的问题第二是RS编码的纠错算法过程. 对PNG格式的解析,需要参考PNG格式的规范.识别黑白块要参 ...
Delphi中将DBGRID中的内容输出到WORD中
这是我很久以前写的一篇文章,现在将它贴出来! 在使用DELPHI开发过程中发现网上有很多的开发朋友询问关于将DBGRID中的内容导出到一个WORD中的方法.想想可以帮帮大家,所以就自己写了一个.希望对 ...
delphi 更改DBGrid 颜色技巧
1.根据条件更改某一单元格的颜色 [delphi] view plaincopy procedure TMainFrm.First_DGDrawColumnCell(Sender: TObject; ...
回合制游戏对战AI制作请重视这两个难点
游戏中的人机对战,"机"这一部分是由两个部分组成的:数值(比如bot数目.血量.命中率.技能cd.攻击力.防御力等等)和AI(人工智能,控制bot行为).很多没入行的朋友经常把这两 ...
Delphi 读取文本文件的两种方式
用两种方式读取文本文件:文件流读取和文件变量读取一.文件流方式 {*******************************************************} {功能:读取文本文 ...
delphi的dbgrid控件点击title排序
procedure TfrmMain.DBGridEhTitleClick(Column: TColumnEh); var i : integer; begin for i:= 1 to DBGrid ...
delphi DBgrid 使用大全
在DELPHI中经常用到网格控件(DBGrid)显示数据,网格控件只提供了每一行的颜色属性,但在实际应用中我们经常希望它按某一行某一项的取值不同显示不同的颜色,甚至在网格中的单位表格项中显示出图像等等 ...
Delphi DBGrid总结
在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一.但是 DBGrid 缺省的外观未免显得单调和缺乏创意.其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外 ...
DBGrid内使用CheckBox功能
Delphi内DBGrid使用CheckBox功能一般有两种方法,最简单的就是使用第三方控件,如TDBGridEh,使用非常方便,唯一的缺点就是编译出的文件大,大概要大500KB那个样子.另外一种相对 ...

DELPHI的DBGRID有两个难点

DELPHI的DBGRID有两个难点相关推荐

最新文章

热门文章