![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
zlmoon
这个作者很懒,什么都没留下…
展开
-
取得鼠标选取的单元格值
For cxGrid:barPart2:=grdBarTV.DataController.GetValue(grdBarTV.DataController.FocusedRecordIndex, grdBarTV.Controller.FocusedItemIndex);For dbgridEH:barPart2:=grdBar2.Fields[grdBar2.SelectedIn原创 2013-09-04 14:01:57 · 675 阅读 · 0 评论 -
取得cxGrid 合计数
SumQty:= cxGrid1DBTableView1.DataController.Summary.FooterSummaryValues[0];转载 2013-10-21 17:40:04 · 633 阅读 · 0 评论 -
数据集生成Xml 格式文件
//数据集生成Xml 格式文件function makeXml(Dataset:TADODataSet;XMLRootName:string):Integer;var i : Integer; xml : String; temp:Variant; doc : IXMLDOMDocument; root,child,child1 : I原创 2013-11-07 10:12:14 · 1187 阅读 · 0 评论 -
数组排序函数
//数组排序procedure TForm1.ArraySort(var A: array of integer);var I, J, T: Integer;begin for I := High(A) downto Low(A) do for J := Low(A) to High(A) - 1 do if A[J] begin转载 2013-11-07 10:00:38 · 626 阅读 · 0 评论 -
页次(PageControl)标签颜色及字体颜色
1.先把 PageControl1 的 OwnerDraw 属性设为 trueprocedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);begin if Active then转载 2013-11-07 09:58:00 · 1919 阅读 · 0 评论