Delphi的EhLib控件的使用说明
DelphiListView基本用法大全[delphi]
![DelphiListView基本用法大全[delphi]](https://img.taocdn.com/s3/m/7c3e969370fe910ef12d2af90242a8956becaa39.png)
DelphiListView基本⽤法⼤全[delphi] Delphi ListView基本⽤法⼤全//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';ListView1.Columns.Items[1].Caption:='type';ListView1.Columns.Items[2].Caption:='title';ListView1.Columns.Items[2].Width:=300;Listview1.ViewStyle:=vsreport;Listview1.GridLines:=true; //注:此处代码也可以直接在可视化编辑器中完成,也可写成以下这样beginwith listview1 dobeginColumns.Add;Columns.Add;Columns.Add;ViewStyle:=vsreport;GridLines:=true;columns.items[0].caption:='进程名';columns.items[1].caption:='进程ID';columns.items[2].caption:='进程⽂件路径';Columns.Items[0].Width:=100;Columns.Items[1].Width:=100;Columns.Items[2].Width:=150;endend;//增加记录with listview1.items.add dobegincaption:='1212';subitems.add('hh1');subitems.add('hh2');end;//删除listview1.items.delete(0);//从数据库表⾥读取数据写⼊ListviewvarTitem:Tlistitem; //此处⼀定要预定义临时记录存储变量.beginListView1.Items.Clear;with adoquery1 dobeginclose;sql.Clear;sql.Add('select spmc,jg,sl from kcxs');Open;ListView1.Items.Clear;while not eof dobeginTitem:=ListView1.Items.add;Titem.Caption:=FieldByName('spmc').Value;Titem.SubItems.Add(FieldByName('sl').Value);Titem.SubItems.Add(FieldByName('jg').Value);next;//删除ListView1.DeleteSelected;//如何取得ListView中选中⾏的某⼀列的值procedure TForm1.Button2Click(Sender: TObject);beginShowMessage(ListView1.Selected.SubItems.Strings[1]); //返回选中⾏第三列中的值end;showMessage(listView1.Selected.Caption); //返回选中⾏第⼀列的值.第1列的值： -->>> ListView1.Selected.Caption第i列的值(i>1):-->>> ListView1.Selected.SubItems.Strings[i]ListView1.Items.Item[1].SubItems.GetText); //取得listview某⾏某列的值Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第i⾏第2列返回选中⾏所有⼦列值.是以回车符分开的，你还要从中剥离出来你要的⼦列的值。
Ehlib使用大全
Ehlib使用大全
一、Ehlib 概述
Ehlib 是用于 Delphi 的一个组件库，它包含了大量的控件和功能，
可以帮助开发人员快速构建功能丰富的应用程序。
Ehlib 支持 Delphi 的
各个版本，包括 Delphi 5 至 Delphi XE8、Delphi 10 Seattle、Delphi
10.1 Berlin 和 Delphi 10.2 Tokyo。
二、Ehlib 的主要功能
1.数据库控件
2.数据集控制
3.表格控件
5.图表控件
Ehlib 提供了多种图表控件，包括 TDBChartEh、TDBVertLineSeries、TDBHorizLineSeries等。
开发人员可以利用这些控件绘制各种类型的图表，如柱状图、折线图、饼图等。
6.数据导入导出
7.打印和报表功能
8.布局管理
三、Ehlib 的使用方法
2. 添加 Ehlib 到 Delphi 工程
3. 使用 Ehlib 的控件和功能
4.编写代码
可以通过编写代码来进一步配置和操作 Ehlib 的控件和功能。
可以使用 Ehlib 提供的 API 来实现各种操作，如数据的增删改查、控件的事件处理等。
四、总结
Ehlib 是一个功能丰富的 Delphi 组件库，提供了各种各样的控件和功能，可以帮助开发人员更高效地开发应用程序。
本文介绍了 Ehlib 的概述、主要功能和使用方法，希望能对开发人员在使用 Ehlib 进行应用程序开发时有所帮助。
delphi第三方控件安装方法
安装方法：
就目前常见的各种形式的组件的安装方法介绍一下。
1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这样的组件的安装方法是：在Component菜单中，选择install component，在对话框
5、ActiveX控件的安装。要安装这类控件，需要先用regsvr32.exe注册，然后选择Component菜单中Import ActiveX Control项。在Import ActiveX Control打开的窗口中，只有已经注册的ActiveX控件才出现在列表中，选中一个然后按Install按钮就可以安装了。如果事先没有用regsvr32.exe注册也可以按ADD按钮找到OCX文件即时注册，注册后再进行安装。
delphi自带Excel控件使用
delphi自带Excel控件使用dephi自带的excel控件有TExcelApplication,TExcelWorkbook,TExcelWorkSheet.每个控件可以通过connetto方法和相应的部分结合起来。
下面是从dfw找到的一些基本操作方法：1）打开ExcelExcelApplication1.Connect;2) 显示当前窗口：ExcelApplication1.Visible[0]:=True;3) 更改 Excel 标题栏：ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';4) 添加新工作簿：ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.A dd(EmptyParam,0));5) 添加新工作表：var Temp_Worksheet: _WorkSheet;beginTemp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,Em ptyParam,0) as _WorkSheet;ExcelWorkSheet1.ConnectT o(T emp_WorkSheet);End;6) 打开已存在的工作簿：ExcelApplication1.Workbooks.Open (c:\a.xlsEmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)7) 设置第2个工作表为活动工作表：ExcelApplication1.WorkSheets[2].Activate; 或ExcelApplication1.WorksSheets[ 'Sheet2' ].Activate;8) 给单元格赋值：ExcelApplication1.Cells[1,4].Value := '第一行第四列';9) 设置指定列的宽度（单位：字符个数），以第一列为例：ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;10) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米11) 在第8行之前插入分页符：ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;12) 在第8列之前删除分页符：ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;13) 指定边框线宽度：ExcelApplication1.ActiveSheet.Range[ 'B3:D4' ].Borders[2].W eight := 3;1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )14) 清除第一行第四列单元格公式：ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;15) 设置第一行字体属性：ExcelApplication1.ActiveSheet.Rows[1] := '隶书';ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;16) 进行页面设置：a.页眉：报表演示';b.页脚：ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P页';c.页眉到顶端边距2cm：ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;d.页脚到底端边距3cm：ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;e.顶边距2cm：ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;f.底边距2cm：ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;g.左边距2cm：ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;h.右边距2cm：ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;i.页面水平居中：ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontall y := 2/0.035;j.页面垂直居中：ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;k.打印单元格网线：True;17) 拷贝操作：a.拷贝整个工作表：ed.Range.Copy;b.拷贝指定区域：ExcelApplication1.ActiveSheet.Range[ 'A1:E2' ].Copy;c.从A1位置开始粘贴：ExcelApplication1.ActiveSheet.Range.[ 'A1' ].PasteSpecial;d.从文件尾部开始粘贴：ExcelApplication1.ActiveSheet.Range.PasteSpecial;18) 插入一行或一列：a. ExcelApplication1.ActiveSheet.Rows[2].Insert;b. ExcelApplication1.ActiveSheet.Columns[1].Insert;19) 删除一行或一列：a. ExcelApplication1.ActiveSheet.Rows[2].Delete;b. ExcelApplication1.ActiveSheet.Columns[1].Delete;20) 打印预览工作表：ExcelApplication1.ActiveSheet.PrintPreview;21) 打印输出工作表：ExcelApplication1.ActiveSheet.PrintOut;22) 工作表保存：if not ExcelApplication1.ActiveWorkBook.Saved thenExcelApplication1.ActiveSheet.PrintPreview;23) 工作表另存为：ExcelApplication1.SaveAs( 'C:\Excel\Demo1.xls' );24) 放弃存盘：ExcelApplication1.ActiveWorkBook.Saved := True;25) 关闭工作簿：ExcelApplication1.WorkBooks.Close;26) 退出 Excel：ExcelApplication1.Quit; ExcelApplication1.Disconnect;但是，自带的控件操作起来感觉有些慢。
Ehlib使用大全
Ehlib使用大全一、DBGridEh1．主要功能DBGridEh组件无论在外观上还是功能上都非常类似Borland开发工具中现有的dbgrid组件，它除了提供dbgrid组件的全部功能外，还增加了下列新功能:● 任意选择多行、列或矩形区域的数据.● 为多列标题设定共同的父标题行.● 表格底部（Footer）区显示求和、计数和其它统计信息.● 自动调整组件宽度与客户区域等宽.● 设置标题行、数据行的高度.● 超长的标题行、数据行文本自动折行处理.● 标题行可作为按钮使用，并可选择是否显示排序标志符（▽降序△升序）.● 点击列标题可对当前列自动排序而无需编写代码.● 能够自动设置删除超长文本显示不下的多余部分，并以省略号（…）代替.● 自动搜索字段（Lookup）数据单元格以单、多列字段下拉列表形式显示.● 自动搜索字段（Lookup）数据单元格可进行增量搜索.● 可锁定任意列数在屏幕水平方向不滚动.● 日期时间控件DateTime picker 可支持TDateField and TDateTimeField两种日期格式.● 根据字段不同值显示关联的ImageList 对象图片组中的图片.● 隐藏任意列.● 显示3D风格的数据区、表尾区和锁定滚动列，制作3D外观表格.● 显示Memo类型字段值.● 除BOOLEAN型数据外，其它数据类型也可以检查框( checkbox )形式显示数据.● 使用专门的函数和过程来存取以reg或ini文件格式保存的表格布局（包含各数据列表、数据列访问顺序、列宽、索引标识、行高等信息）文件。
● 通过设置数据单元格的hint和ToolTips属性，当移动鼠标到该单元格时，可以显示单元格容纳不下的文本内容.● 将组件中数据导入/导出到Text, Csv, HTML, RTF, XLS 和内部数据等多种格式的文件中.2．主要属性DBGridEh组件主要属性见下表（其它属性参见dbgrid）：DBGridEh组件事件基本与DBGrid相同，在此不再赘述。
DELPHI控件使用说明
Delphi更新/控件/辅助工具安装指引
赖正雄、何敏生2007-11-15
【附录】：
一、控件的基本按照方法：
1、EXE程序安装包，双击后依提示安装；
2、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;
3、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；
4、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；
5、如果以上Install按钮为失效的话，试试Compile按钮；
6、是run time lib则在option下的packages下的runtimepackes加之。
【说明】：如果编译时提示文件找不到的话，一般是控件的安装目录不在Delphi的Lib目录中，有两种方法可以解决：
1、反安装的源文件拷入到Delphi的Lib目录下；
2、或者Tools-->Environment Options中把控件源代码路径加入到Delphi的Lib目录中即可。
注意：所安装的控件是否与你所用的Delphi版本相适应。
二、控件的卸载：
component--install packages--欲删除控件名--remove。
delphi tedgebrowser 用法
Delphi TEdgeBrowser 是一款基于 Microsoft Edge 的浏览器控件，适用于 Delphi 编程语言。
它提供了一种简单而强大的方式，使开发人员能够在他们的 Delphi 应用程序中嵌入现代的 Web 浏览体验。
在本文中，我们将介绍 Delphi TEdgeBrowser 的用法，包括如何在Delphi 项目中集成该控件，以及如何利用其丰富的功能实现各种需求。
一、引入 Delphi TEdgeBrowser 控件要开始使用 Delphi TEdgeBrowser，首先需要确保你已经安装了最新版本的 Delphi，并且已经下载了 Delphi TEdgeBrowser 的 SDK。
一旦确认这些前提条件已满足，你就可以在 Delphi 项目中引入TEdgeBrowser 控件了。
在 Delphi 的界面设计器中，通过组件面板找到 TEdgeBrowser 控件，并将其拖拽到你的窗体或其他容器控件上即可。
二、基本用法一旦将 TEdgeBrowser 控件添加到你的 Delphi 项目中，你就可以开始享受其强大的功能了。
通过简单的几行代码，你就可以加载网页、执行 JavaScript 脚本以及与网页内容进行交互。
以下是一个简单的示例代码，演示了如何加载一个网页：```pascalprocedure TForm1.FormCreate(Sender: TObject);beginEdgeBrowser1.Navigate('end;```三、与网页交互除了简单的加载网页之外，Delphi TEdgeBrowser 还提供了丰富的API，使开发人员能够与嵌入的网页内容进行交互。
你可以通过调用TEdgeBrowser 控件提供的方法和事件来执行各种操作，例如执行JavaScript、修改网页内容、捕获网页事件等。
以下是一个演示如何执行 JavaScript 脚本的示例代码：```pascalprocedure TForm1.Button1Click(Sender: TObject);beginEdgeBrowser1.ExecuteScript('alert("Hello, world!")');end;```四、事件处理Delphi TEdgeBrowser 还支持各种事件，使开发人员能够监控和响应浏览器控件的各种状态变化和用户操作。
EhLib使用说明
EhLib使用说明ehlibv5在delphi2021下的安装1.卸载旧版本2.创建目录如e:\\ehlib5工具->选项->delphioptions->library-win32->librarypath）。
用\DPK打开ehlib140并编译；然后打开ehlibdatadriversxx DPK并编译；6.然后打开并编译、安装：dclehlibxx。
bpl，dclehlibdatadriversxx。
BPL：即：用\打开dclehlibxx.dpk,dclehlibdatadriversxx.dpk,编译、安装;in\组件将出现delphi7中的安装方法2.在tools->environmentoptions->library->librarypath中添入ehlib路径。
3.打开新建文件夹中的ehlib70.dpk,编译一下，但不要安装。
4.打开ehlib中的dclehlib70.dpk,编译,安装5.在Delphi7 DPK中打开dclehlib70，编译并安装。
6.Ehlib的组件页面出现在组件面板中。
7.打开附带的demos，编译并运行，测试安装成功。
以下是Ehlib的导出代码：（实际上，它已经存在于Ehlib的Demo1中）proceduretinvoicemanager.ppmsaveselectionclick(sender:tobject);varexpclass:tdb gridehexportclass;ext:string;beginsavedialog1。
文件名：='file1'；如果是（activecontrolistdbgrideh），则单击IFSaveDialog1。
executethenbegincasesavedialog1.filterindexof1:BeginFunClass:=TDBGrideExportHostExt；分机：='txt'；终止2:BeginFunClass:=TDBGrideExportAscsv；分机：='csv'；终止3:BeginFunClass:=TDBGrideExportAsHTML；分机：='htm'；终止4:BeginFunClass:=TDBGrideExportAsrtf；分机：='rtf'；终止5:beginexpclass:=tdbgridehexportasxls;ext:='xls';end;elseexpclass:=nil；分机：=''；终止ifexpclass<>nilthenbegin如果大写（copy（savedialog1.filename，length（savedialog1.filename）-2,3））<>则为大写（ext）savedialog1.filename:=savedialog1.filename+'.'+ext;savedbgridehtoexportfile(ex pclass,tdbgrideh(activecontrol),savedialog1.filename,false);end;end;end;//功能：设置dbgrideh的总行信息。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
EhLib控件的使用说明一. DBGridEh组件：1.属性。
2.使用统计栏功能(1)设置统计栏行数，将DBGridEh.FooterRowCount := 1(2)设置激活统计功能，将DBGridEh.SumList.Active := True;(3)选择所统计字段的统计方式，如将Columns[n].Footer.ValueType := vtSum;(4)3.复杂标题.（1）标题行可设为2行以上高度，并可以为多列创建一个共同的父标题行。
为实现这个效果，需在各个列标题属性中以“｜”分隔父标题和子标题，如办公用品包括代码和名称两部分，具体属性设置如下：usemultititile=true;titlelines=2DBGridEh.Columns[0].Title.Caption := '办公用品|代码';DBGridEh.Columns[1].Title.Caption := '办公用品|名称';（2）标题行显示图片首先添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。
然后将DBGridEh的TitleImages设置为img1.最后在需要显示图片的列标题的imageindex中设置需要显示的img1中图片的序号。
4.实现DBGridEh 隔行分色显示procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;AFont: TFont; var Background: TColor; State: TGridDrawState);Beginif DBGridEh1.SumList.RecNo mod 2 = 1 thenBackground := $00FFC4C4ElseBackground := $00FFDDDD;end;5.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' thenBackground := $00FFC4C4//在xm 字段值为Li ming 的行设置行背景色（bde 设置情况下）else if DBGridEh1.DataSource.DataSet.FieldByName('xm').AsString = 'Li ming' then Background := $00FFC4C4ElseBackground := $00FFDDDD;end;6.在dbgrideh中允许选择多行，如何知道哪些行被选中？是个BOOKMARK类型的属性。
SelectedRows: TBookmarkListprocedure TForm1.Button1Click(Sender: TObject);vari, j: Integer;s: string;beginif DBGrid1.SelectedRows.Count>0 thenwith DBGrid1.DataSource.DataSet dofor i:=0 to DBGrid1.SelectedRows.Count-1 dobeginGotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));for j := 0 to FieldCount-1 dobeginif (j>0) then s:=s+', ';s:=s+Fields[j].AsString;end;Listbox1.Items.Add(s);s:= '';end;end;7.显示自动提示设置DBGridEh控件的showhint属性为true，然后设置需要显示自动提示的字段的ToolTips属性为True。
8.自动排序。
设置OptionsEh.dbgAutoSortMarking为true，字段的Title.titleButton属性为true。
9.根据不同字段值显示相应的小图片如根据库存材料的不同状态在数据单元格中显示相应图片，具体设置如下：添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。
然后将需要显示图片的列的imagelist属性设置为img1；在keylist属性中添加实际数据存储值，一行为一个值，切记一定要与imagelist中图片顺序一一对应，否则会张冠李戴，面目全非。
还可在picklist 中添加提示信息，也要求是一行为一个值，并设tooltip为true，那么，运行时当鼠标移动到该数据单元格时在显示图片的同时还显示提示信息，怎么样，功能够强大吧！可使用空格键或鼠标切换下一张图片，图片切换的同时也改变了实际存储数据值。
也可通过shift+空格或鼠标切换为上一张图片。
这样就实现了上下两个方向图片切换10.显示字段的单列或多列下拉列表（1）单列：设置好DBGrid中该字段的PickList字符串列表、初始的列表行数DropDownRows即可。
（2）多列：根据单元格字段值显示与其相关的其它表字段内容。
首先需在当前表中新建立一个lookup型字段，把DBGriEh相应的列指向lookup字段，然后，设置相应列的DropDownBox的各项属性并设置改列的lookupdisplayfields属性（显示的列，用分号隔开），而且返回字段必须作为其中的第一项。
具体设置如下：1)放置两个Query组件和一个DataSource组件，其中一个用于查询DBGridEh需要的数据，另一个用于查询关联表。
2)在连接到DBGridEh控件的Query中，Add相关字段。
并为需要添加的字段设置lookup型列，field type为lookup；设置dataset为查询关联表的Query组件，key Fields为关键字段，lookup keys为联结字段，Result Field为显示在列表中的结果字段（返回字段）。
3)然后，将需要设置下拉列表的字段的ChachedUpdates属性设置为True，为该Query控件设置OnUpdateRecord事件，内容可以为空，但是至少留一个“//”。
4)放置DBGridEh控件，进行相关设置。
然后添加相关字段，设置刚才添加的lookup字段的AlwaysShowEditButton为True。
5)进行下拉列表相关属性的设置，在字段的LookupDispalyFields属性设置列表中需要显示得字段，如：dropdownshowtitles＝truedropdownsizing＝truedropdownwidth＝-111.显示日历下拉列表Date 和DateTime类型字段值均可以此形式显示。
外观与编辑框无异，当点击该单元格时，右侧会出现“▽”符号，点击之即可出现日历下拉列表，inplace 编辑器将显示下拉按钮以显示显示下拉计算器。
有时不希望出现日历下拉列表，只需设置Column.ButtonStyle属性为cbsNone即可，此方法同样适用于其它组件不以特殊外观显示的情况。
12.3D或平面外观效果设置flat为true则为平面外观效果.13.锁定多列不滚动当表格水平方向信息在一屏幕显示不下时，此项功能非常有用。
例如，工资表格中包含姓名、基本工资、绩效工资等信息一屏幕显示不下，需要通过移动水平滚动条显示下一屏信息。
如果不锁定关键字段列如姓名，则移动到下一屏时就不知道此条记录对应的姓名。
因此，在实际应用中经常需锁定多列不滚动。
例：姓名字段为表格第二列，则设置FrozenCols=2.这样当一屏幕显示不下，通过移动水平滚动条显示下一屏信息时，表格前两列不滚动，作为参照列。
14.导入/导出数据导入/导出数据在实际处理过程中是比较烦琐的。
但是Enlib3.0提供了一系列函数让你轻松实现此功能，而且支持的文件格式很多：Text, Csv, HTML, RTF, XLS 和内部数据格式。
除此之外，还可对任意选择的数据区域进行操作。
函数如下：Pascal:SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:\temp\file1.txt',False);C++:SaveDBGridEhToExportFile(__classid(TDBGridEhExportAsText),DBGridEh1,"c:\\temp\\file1.tx t",false);说明：其中false参数表示导出的是选中的局部数据区域数据，true则为整个表格数据。
例：将当前表格中数据导出为EXCEL等格式文件。
在窗体中添加一个SaveDialog组件和“导出”按钮B_exp，在“导出”按钮的click事件中添加如下代码：procedure TForm1.B_expClick(Sender: TObject);varExpClass:TDBGridEhExportClass;Ext:String;BeginSaveDialog1.FileName := 'file1';if (ActiveControl is TDBGridEh) thenif SaveDialog1.Execute thenbegincase SaveDialog1.FilterIndex of1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;elseExpClass := nil; Ext := '';end;if ExpClass <> nil thenbeginif UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) thenSaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,False);//其中false为局部数据end;end;end;15.将存在的DBGrid组件转换为DBGridEh组件。