摘要：
EhLib DBGridEh组件在Delphi中应用全攻略总结【DBGridEh（增强型表格组件）功能详解】DBGridEh组件无论在外观上还是功能上都非常类似Borland开发工具中现有的dbgrid组件，它除了提供dbgrid组件的全部功能外，还增加了下列新功能:● 任意选择多行、列或矩形区域的
阅读全文
posted @ 2013-04-07 22:40
del88
阅读(212)
推荐(0)
摘要：
DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预 览 /打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持
阅读全文
posted @ 2013-04-07 22:23
del88
阅读(42)
推荐(0)
摘要：
//存储Grid格式ini function SaveGridIni(ADBGridEhNameStr: string;ADBGridEh:TDBGridEh): Boolean; var IniFileNameStr:string; begin IniFileNameStr := ExtractF
阅读全文
posted @ 2013-04-07 22:22
del88
阅读(23)
推荐(0)
摘要：
DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中 国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持B
阅读全文
posted @ 2013-04-07 22:05
del88
阅读(32)
推荐(0)
摘要：
DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方 组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个 版本支持
阅读全文
posted @ 2013-04-07 22:04
del88
阅读(35)
推荐(0)
摘要：
DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方 组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个 版本支持
阅读全文
posted @ 2013-04-07 22:02
del88
阅读(19)
推荐(0)
posted @ 2013-04-07 18:45
del88
阅读(30)
推荐(0)
posted @ 2013-04-02 13:19
del88
阅读(37)
推荐(0)
摘要：
IDE使用： 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
阅读全文
posted @ 2013-04-02 11:38
del88
阅读(12)
推荐(0)
摘要：
运行效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1
阅读全文
posted @ 2013-04-02 11:25
del88
阅读(17)
推荐(0)
摘要：
procedure TForm1.DBGrid1EditButtonClick(Sender: TObject); begin Showmessage(DBGrid1.SelectedField.AsString); end; procedure TForm1.FormCreate(Sender:
阅读全文
posted @ 2013-03-28 19:02
del88
阅读(28)
推荐(0)
摘要：
打开DBGridEh.pas[版本V5.2]单元文件，找到 EhlibConsts 单元文件名[第3029行]，然后按 Ctrl+Enter 打开相应单元文件，将文中的： SVisibleColumnsEh = 'Visible columns'; SCutEh = 'Cut'; SCopyEh =
阅读全文
posted @ 2013-03-28 18:58
del88
阅读(26)
推荐(0)
摘要：
{$R *.dfm} uses DBGridEhImpExp; //SaveDBGridEhToExportFile可以支持以下五种类型 //TDBGridEhExportAsText //TDBGridEhExportAsCSV //TDBGridEhExportAsHTML //TDBGridE
阅读全文
posted @ 2013-03-28 18:54
del88
阅读(39)
推荐(0)
摘要：
用一句命令即可： DBGrideh1.OptionsEh:=DBGrideh1.OptionsEh-[dghExtendVertLines]; //去掉网格渐变色 去掉前效果： 去掉后效果：
阅读全文
posted @ 2013-03-28 17:34
del88
阅读(30)
推荐(0)
摘要：
打开DBGridEh.pas[版本V5.2]单元文件，找到 EhlibConsts 单元文件名[第3029行]，然后按 Ctrl+Enter 打开相应单元文件，将文中的： SVisibleColumnsEh = 'Visible columns'; SCutEh = 'Cut'; SCopyEh =
阅读全文
posted @ 2013-03-28 17:32
del88
阅读(31)
推荐(0)
摘要：
// // 取得FOOTER的合计值pDbGrid.Columns[1].Footer.SumValue // 比如要将金额转换成中文大写 // unit uFooter; interface uses SysUtils,Graphics,Classes,DBGridEh; // // AFlag=
阅读全文
posted @ 2013-03-28 16:33
del88
阅读(20)
推荐(0)
摘要：
unit uExport; interface uses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait; procedure ExpDbgridEh(grid:TDBGridE
阅读全文
posted @ 2013-03-28 15:46
del88
阅读(27)
推荐(0)
摘要：
unit FormColSelect; interface uses SysUtils, Classes, Controls, Forms, Graphics,uCommFunc, StdCtrls, DBGridEh, CheckLst, Buttons, ComCtrls, ExtCtrls,
阅读全文
posted @ 2013-03-28 15:39
del88
阅读(34)
推荐(0)
摘要：
var MyList: TStringList; begin MyList := TStringList.Create; try MyList.Add('a'); MyList.Add('b'); MyList.Add('c'); ShowMessage(MyList.Text); ShowMess
阅读全文
posted @ 2013-03-23 22:34
del88
阅读(21)
推荐(0)
摘要：
最初计算机操作系统是32位，而时间也是用32位表示。 (Integer.MAX_VALUE);2147483647Integer用32位表示，因此32位能表示的最大值是2147483647。另外1年365天的总秒数是31536000，2147483647/31536000 = 68.1也就是说32位
阅读全文
posted @ 2013-03-22 23:05
del88
阅读(35)
推荐(0)
摘要：
PrintPurchaseOrderShow_dbgeh.FieldColumns['top_price'].Footer.ValueType := fvtSum;
阅读全文
posted @ 2013-03-15 16:31
del88
阅读(17)
推荐(0)
摘要：
配合上方的 可以设置 默认选中或不选中 需要注意当给datetimepicker赋值的时候，check会自动启用,如果不想让其启用,可以先赋值在设置下false： //有效期上下位置不要颠倒就不会自动启用了,这样 TopValidDate_dtp.Date := Date; TopValidDate
阅读全文
posted @ 2013-03-13 21:43
del88
阅读(22)
推荐(0)
摘要：
CompareStr 区分大小写; CompareText 不区分大小写. 举例: var s1,s2: string; i: Integer; begin s1 := 'abc'; s2 := 'adc'; i := CompareStr(s1,s2); ShowMessage(IntToStr(
阅读全文
posted @ 2013-03-05 15:20
del88
阅读(318)
推荐(0)
摘要：
首先窗体类增加一个和这个事件 一样参数的函数 这个函数的实现代码如下： function TfrmFastPrint.MyMoneyToCnAddFrx(const MethodName: string; var Params: Variant): Variant;//这个函数的参数和要fr事件的参
阅读全文
posted @ 2013-03-05 13:49
del88
阅读(74)
推荐(0)
摘要：
procedure TfrmTopItemLog.Button4Click(Sender: TObject); var top_canyu_col: string; I: Integer; begin // {获取参与聚合的列} for I := 0 to RuKuHuiZongGroupBy_pn
阅读全文
posted @ 2013-03-02 11:49
del88
阅读(16)
推荐(0)
posted @ 2013-02-25 17:02
del88
阅读(85)
推荐(0)
摘要：
开发中 经常用到 image 实际开发中 这两个 属性 结合着 用
阅读全文
posted @ 2013-02-20 17:21
del88
阅读(41)
推荐(0)
摘要：
这个问题 网上都是 说 这个是delphi的bug 我靠 ，这个 不但是 bug 而是升级后的 更高级 var MyList: TStrings;begin MyList := TStringList.Create; try //ExtractStrings([]) MyList.Delimiter
阅读全文
posted @ 2013-02-20 00:00
del88
阅读(69)
推荐(0)
摘要：
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1');
阅读全文
posted @ 2013-02-19 23:58
del88
阅读(33)
推荐(0)
摘要：
MyPicUrlList.Delimiter := '/'; MyPicUrlList.DelimitedText := MySo['item_get_response']['item']['pic_url'].AsString; //清除内存流里的东西,否则会导致下载下来都是一个图片 MyMemo
阅读全文
posted @ 2013-02-18 20:33
del88
阅读(21)
推荐(0)
摘要：
if frmClientDm.TopAreaShow_adoq.State = dsEdit then begin //不管那列,只要是在编辑状态,退出这个dbgrideh的时候就提交,实在是太高,花费巨大脑汁,终于解决问题了 frmClientDm.TopAreaShow_adoq.Post; e
阅读全文
posted @ 2013-01-29 17:28
del88
阅读(43)
推荐(0)
摘要：
MessageBox 弹出的窗口 不能一直在主窗体上面 尽量不用 messagedlg 和 application.MessageBox这两个可以
阅读全文
posted @ 2013-01-15 23:07
del88
阅读(30)
推荐(0)
摘要：
在delphi中经常要用到一个提示对话框，根据用户选择执行不同的命令，MessageBox就是常用的对话框，它不仅能够定义显示的信息内容、 信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信 息对框。 1、
阅读全文
posted @ 2013-01-15 22:44
del88
阅读(69)
推荐(0)
摘要：
if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end; MessageDlg用法 对话框类型：mtwar
阅读全文
posted @ 2013-01-15 22:38
del88
阅读(26)
推荐(0)
摘要：
通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); ShowMessa
阅读全文
posted @ 2013-01-15 22:36
del88
阅读(31)
推荐(0)
摘要：
看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得... 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := Inpu
阅读全文
posted @ 2013-01-15 22:31
del88
阅读(28)
推荐(0)
摘要：
在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等 删除：CheckListBox.DeleteSelected; 上下移： CheckListBox.Items.Move 删除用 CheckListBox1.Items.Delete(In
阅读全文
posted @ 2012-12-29 14:01
del88
阅读(18)
推荐(0)
摘要：
获取DBGrid选择列值 遍历DBGrid，取如下值: DBGrid.SelectedField.FieldName就是当前字段的字段名. DBGrid.SelectedField.DisplayLabel就是当前字段的标题. DBGrid.SelectedField.DisplayText就是当前
阅读全文
posted @ 2012-12-26 00:07
del88
阅读(33)
推荐(0)
摘要：
Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListV
阅读全文
posted @ 2012-12-24 23:43
del88
阅读(27)
推荐(0)
摘要：
procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject); var I: Integer; begin for I := 0 to ListView1.Columns.Count-1 do begin ListView1.Co
阅读全文
posted @ 2012-12-24 16:02
del88
阅读(14)
推荐(0)
浙公网安备 33010602011771号