DELPHI的DBGRID有两个难点用CXGRID全做到了

本文格式为Word版，下载可任意编辑——DELPHI的DBGRID有两个难点，用CXGRID全做到了DELPHI的DBGRID有两个难点，用CXGRID全做到了

(2023-10-2510:17:53)：165442523DELPHI的DBGRID有两个难点：

一，每行都是一个BUTTON，且CAPTION不同二，每行不同行高，且由用户拖动而不同高的这两点我用CXGRID全做到了一，

usescxGridRows;

procedureTForm1.cxGrid1DBTableView1Column1CustomDrawCell(Sender:TcxCustomGridTableView;ACanvas:TcxCanvas;

AViewInfo:TcxGridTableDataCellViewInfo;varADone:Boolean);var

:tbutton;i,j:integer;begin

:=nil;try

fori:=AViewInfo.GridView.Site.ComponentCount-1downto0dobegin

ifAViewInfo.GridView.Site.Components[i]istbuttonthenbegin

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

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

end;

ifTcxGridDataCellViewInfo(AViewInfo).Item.Caption='NAME'thenbegin

if=nilthenbegin

:=tbutton.Create(AViewInfo.GridView.Site);.Visible:=false;

.Parent:=AViewInfo.GridView.Site;.Caption:=TcxGridDataCellViewInfo(AViewInfo).DisplayValue;//inttostr(iii);

.Tag:=1;

end;

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

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

AViewInfo.ClientBounds.Top);.SendToBack;.Visible:=true;end;except

one:exceptiondobeginendend;end;

procedureTForm1.cxGrid1DBTableView1TopRecordIndexChanged(Sender:TObject);var

i,j:integer;begintry

fori:=cxgrid1.ActiveView.Site.ComponentCount-1downto0dobegin

ifcxgrid1.ActiveView.Site.Components[i]istbuttonthentbutton(cxgrid1.ActiveView.Site.Components[i]).Free;end;exceptend;end;

procedureTForm1.cxGrid1DBTableView1ColumnSizeChanged(Sender:TcxGridTableView;AColumn:TcxGridColumn);var

i,j:integer;begintry

fori:=cxgrid1.ActiveView.Site.ComponentCount-1downto0dobegin

ifcxgrid1.ActiveView.Site.Components[i]istbuttonthen

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

procedureTForm1.cxGrid1DBTableView1LeftPosChanged(Sender:TObject);var

i,j:integer;begintry

fori:=cxgrid1.ActiveView.Site.ComponentCount-1downto0dobegin

ifcxgrid1.ActiveView.Site.Components[i]istbuttonthentbutton(cxgrid1.ActiveView.Site.Components[i]).Free;end;exceptend;end;

二，

CXGRID中，只要GetCellHeight事件不为NIL，且optionsview中columnautowidth设为FALSE，即可以实现自动每行行高不同也。假使要手工用户拖动而每行行高不同，可用下面代码//////////

procedureTcxGridRowSizingObject.Init(constP:TPoint;AParams:TcxCustomGridHitTest);var

:tstringlist;i,j:integer;begin

inherited;

FRow:=TcxCustomGridRow((AParamsasTcxGridRowSizingEdgeHitTest).GridRecord);

ifAParams.ViewInfoistcxgridindicatorrowitemviewinfothenbegin:=

tstringlist(tcxgridindicatorrowitemviewinfo(AParams.ViewInfo).GridView.Site.Tag);if(nil)thenbeginj:=0;

fori:=0to.Count-1dobegin

ifinteger(.Objects[i])=FRow.RecordIndexthenbegin

[i]:='-1';j:=1;break;end;end;

ifj=0then

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

//////////

procedureTForm1.Button1Click(Sender:TObject);var

:tstringlist;begin

adotable1.active:=true;:=tstringlist.Create;

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

//////////

procedureTForm1.cxGrid1DBTableView1GetCellHeight(

Sender:TcxCustomGridTableView;ARecord:TcxCustomGridRecord;AItem:TcxCustomGridTableItem;

ACellViewInfo:TcxGridTableDataCellViewInfo;varAHeight:Integer);var

:tstringlist;i,j:integer;begin

:=tstringlist(cxgrid1.activeview.site.tag);if((nil)and(.Count>0))thenbeginj:=0;

fori:=0to.Count-1dobegin

ifinteger(.Objects[i])=arecord.RecordIndexthenbegin

j:=strtoint([i]);break;end;end;

ifj0thenbegin

ifj=-1then

[i]:=inttostr(cxGrid1DBTableView1.OptionsView.DataRowHeight);j:=strtoint([i]);aheight:=j;

///////////////

cxGrid1DBTableView1ColumnSizeChanged(nil,nil);end;end;

end;

///////////

procedureTForm1.cxGrid1DBTableView1ColumnSizeChanged(Sender:TcxGridTableView;AColumn:TcxGridColumn);var

i,j:integer;begintry

fori:=cxgrid1.ActiveView.Site.ComponentCount-1downto0dobegin

ifcxgrid1.ActiveView.Site.Components[i]istbuttonthenbegin

tb