张志峰的博客

水滴石川,积少成多。

导航

随笔分类 -  Delphi TMS

摘要:TAdvStringGrid表格实现行的单选,不需要多选多选图,如下:单选图,如下:把属性中Options属性中的goRangeSelect的属性设置为True就会多选,False就是单选。OK! 阅读全文

posted @ 2012-02-09 11:35 ╰★张志峰★╮ 阅读(1520) 评论(0) 推荐(0)

摘要:想在TAdvStringGrid的表头设置粗体,找了半天才找到,总是忘喽,写下来就好找了设置如下: FixedFront->Style->fsBold设置为True设置前:设置后:搞定。 阅读全文

posted @ 2012-02-07 17:13 ╰★张志峰★╮ 阅读(1136) 评论(0) 推荐(0)

摘要:AdvStringGrid的表头增加排序的功能:我的设置是:SortSetting->Column 的值设置成0 SortSetting->Show 的值设置成True这样就可以排序了 阅读全文

posted @ 2012-01-11 10:15 ╰★张志峰★╮ 阅读(2994) 评论(0) 推荐(0)

摘要:在实际运用中,用到了TMS的TAdvSpreadGrid表格,这个表格和CDS没有关系。造成了在一些操作上的被动性(比如:移动,隐藏,增加字段)我个人想对于程序,我进行如下处理:1)把定义一个类,存储字段的信息,如下: TDefDbField = class FieldCode: string; FieldName: string; .....其他的一些控制信息,(是否显示等) end2)定一个TStringList,在其中把所定义的字段类,全部存储到这个TStringlist列表中。3)循环StringList,通过表格的CellName属性,在Titile中如 Grid1.CellName 阅读全文

posted @ 2011-12-27 10:38 ╰★张志峰★╮ 阅读(1109) 评论(0) 推荐(0)

摘要:设置Bands属性中的Active := True; 阅读全文

posted @ 2011-12-13 15:08 ╰★张志峰★╮ 阅读(684) 评论(0) 推荐(0)

摘要:设置Navigation中的AdvanceOnEnter := Ture; 就可以实现回车换格的效果。 阅读全文

posted @ 2011-12-13 15:06 ╰★张志峰★╮ 阅读(813) 评论(0) 推荐(0)

摘要:如题:我输入的是“使得法国”但是在表格中只显示“法国”,如下图:原因如下在TAdvStringGrid表格中的MouseActions属性中我设置了RangeSelectAndEdit := True;这样好的效果是你可以拖动选中单元格并且实现选中行的效果,但是会出现吃汉字的现象,英文字母没关系。 阅读全文

posted @ 2011-12-13 15:04 ╰★张志峰★╮ 阅读(659) 评论(0) 推荐(0)

摘要:TAdvStringGrid表格显示下拉列表的时候,总是刷新 并且选择的内容被清空,如下图:后来调整属性,在表格的ContrtolLook属性下的DropDownAlwaysVisible的属性设置为True,并且在表格的HasComboBox的方法中,增加如下代码,解决问题procedure TForm_DWUserManager.advstrngrd_SubDWHasComboBox(Sender: TObject; ACol, ARow: Integer; var HasComboBox: Boolean);var FieldClass: TFieldClass;begin FieldC 阅读全文

posted @ 2011-12-13 10:34 ╰★张志峰★╮ 阅读(3299) 评论(0) 推荐(0)