Delph的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中图片的序号。 实现 DBGridEh 隔行分色显示 procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; ?AFont: TFont; var Background: TColor; State: TGridDrawState); Begin ? ? if DBGridEh1.SumList.RecNo mod 2 = 1 then ? ? ? Background := $00FFC4C4 ? Else ? ? ? Background := $00FFDDDD; end; DBGridEh 在某些条件下某行显示特定颜色 procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState); begin ? //在 name 字段值为 aaa 的行设置行背景色（ado 设置情况下） ? if ADOQuery1.FieldByName(name).AsString = aaa then? ? ? Background := $00FFC4C4 ? //在 xm 字段值为 Li ming 的行设置行背景色（bde 设置情况下） ? else if DBGridEh1.DataSource.DataSet.FieldByName(xm).AsString = Li ming ?then ? ? ? Background := $00FFC4C4 ? Else ? ? ? Background := $00FFDDDD; end; ? 在dbgrideh中允许选择多行，如何知道哪些行被选中？是个BOOKMARK类型的属性。 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.dbgAutoSortMar