Delphi的EhLib控件的使用說明.docVIP

EhLib控件的使用说明 一. DBGridEh组件： 属性。 使用统计栏功能 设置统计栏行数，将DBGridEh.FooterRowCount := 1 设置激活统计功能，将DBGridEh.SumList.Active := True; 选择所统计字段的统计方式，如将Columns[n].Footer.ValueType := vtSum; 复杂标题. ? ? （1）标题行可设为2行以上高度，并可以为多列创建一个共同的父标题行。为实现这个效果，需在各个列标题属性中以“｜”分隔父标题和子标题，如办公用品包括代码和名称两部分，具体属性设置如下：usemultititile=true; titlelines=2 DBGridEh.Columns[0].Title.Caption := 办公用品|代码;DBGridEh.Columns[1].Title.Caption := 办公用品|名称;?（2）标题行显示图片 ? ?首先添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。然后将DBGridEh的TitleImages设置为img1.最后在需要显示图片的列标题的imageindex中设置需要显示的img1中图片的序号。SelectedRows: TBookmarkList procedure TForm1.Button1Click(Sender: TObject); var i, j: Integer; s: string; begin if DBGrid1.SelectedRows.Count0 then with DBGrid1.DataSource.DataSet do for i:=0 to DBGrid1.SelectedRows.Count-1 do begin GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i])); for j := 0 to FieldCount-1 do begin if (j0) then s:=s+, ; s:=s+Fields[j].AsString; end; Listbox1.Items.Add(s); s:= ; end; end; 显示自动提示 设置DBGridEh控件的showhint属性为true，然后设置需要显示自动提示的字段的ToolTips属性为True。 自动排序。 设置OptionsEh.dbgAutoSortMarking为true，字段的Title.titleButton属性为true。 根据不同字段值显示相应的小图片? ? 如根据库存材料的不同状态在数据单元格中显示相应图片，具体设置如下：? ? 添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。然后将需要显示图片的列的imagelist属性设置为img1；在keylist属性中添加实际数据存储值，一行为一个值，切记一定要与imagelist中图片顺序一一对应，否则会张冠李戴，面目全非。还可在picklist中添加提示信息，也要求是一行为一个值，并设tooltip为true，那么，运行时当鼠标移动到该数据单元格时在显示图片的同时还显示提示信息，怎么样，功能够强大吧！可使用空格键或鼠标切换下一张图片，图片切换的同时也改变了实际存储数据值。也可通过shift+空格或鼠标切换为上一张图片。这样就实现了上下两个方向图片切换显示下拉列表根据单元格字段值显示与其相关的其它表字段内容。首先需在当前表中新建立一个lookup型字段而且返回字段必须作为其中的第一项。具体设置如下：返回字段UpdateRecord事件，内容可以为空，但是至少留一个“//”。 放置DBGridEh控件，进行相关设置。然后添加相关字段，设置刚才添加的lookup字段的AlwaysShowEditButton为True。 进行下拉列表相关属性的设置，在字段的LookupDispalyFields属性设置列表中需要显示得字段，如： dropdownshowtitles＝true dropdownsizing＝truedropdownwidth＝-1 显示日历下拉列表? ? Date 和 DateTime类型字段值均可以此形式显示。外观与编辑框无异，当点击该单元格时，右侧会出现“▽”符号，点击之即可出现日历下拉列表，inplace 编辑器将显示下拉按钮以显示显示下。有时不希望出现日历下拉列表，只需设置Column.ButtonStyle属性为 cbs