del88 - 博客园

2013年10月16日

摘要：有时候自动生成的热键并不是很理想这个时候需要用自己认为好的方法如下图，加个(&热键) 阅读全文

posted @ 2013-10-16 16:13 del88 阅读(5) 评论(0) 推荐(0) 编辑

摘要： procedure TfrmTongBuTid.Button1Click(Sender: TObject); begin TopStartModifiedTime_dtp.Time := TopStartModifiedTime_dtp.Time - OneHour; end; 需要引用 Syste 阅读全文

posted @ 2013-10-16 14:12 del88 阅读(48) 评论(0) 推荐(0) 编辑

2013年9月18日

建立互斥程序代码一般的程序用不到

摘要： // { 判断是否已经在运行了一个程序,由于程序老是启动不起来,客户也很着急,老是需要点击多次才能出来,所以这里去掉,增强客户体验大不了,启动了多个程序,客户关掉便是,不能影响客户体验. } // MyHandle := CreateMutex(nil,True,'MyShopdaxiaMain' 阅读全文

posted @ 2013-09-18 15:03 del88 阅读(1) 评论(0) 推荐(0) 编辑

2013年9月15日

ListView 判断有没有选中的行方法

摘要： ListView1.SelCount 返回选中行的行数应该是没有测试但是测试了如果没有选中行返回0 如果选中一行了返回1 阅读全文

posted @ 2013-09-15 11:42 del88 阅读(9) 评论(0) 推荐(0) 编辑

2013年9月8日

ListView改变行高的技巧

摘要：改变 ListView 的行高 (Line Height) (cjc,2009.6.2) 改变 ListView 的行高 (Line Height) (cjc,2009.6.2) ListView在Report模式下，行与行间隔较窄，以下方法在不更换字体的情况下，改变行高，使看起来宽松一点。 1. 阅读全文

posted @ 2013-09-08 21:26 del88 阅读(167) 评论(0) 推荐(0) 编辑

2013年9月4日

用superxmlparser.pas的XMLParseString----XML转Json注意

摘要：了解XML转成Json时候用的时候多了个#号：对下面XML进行转换： <?xml version="1.0" encoding="utf-8"?><response><result>1</result><errorDesc>无错误信息</errorDesc><assignIds><assignId 阅读全文

posted @ 2013-09-04 16:49 del88 阅读(16) 评论(0) 推荐(0) 编辑

2013年8月16日

DBGRIDEH 底部多列发现

摘要： 1.设置底部行数 2.点击footers 单独对每一行进行设置 3.单独对这两行进行设置 5.看下辅助所以用的时候可以这样用：WeiTopTradeShow.FieldColumns['top_xuhao'].Footers[1].Value := IntToStr(MyAdoq.RecordC 阅读全文

posted @ 2013-08-16 10:15 del88 阅读(13) 评论(0) 推荐(0) 编辑

2013年8月7日

TActionManager Delphi 超级方便的快捷键草草

摘要： delphi 中用快捷键草实在是太简单了、自己摸索出来的方法 1. 2. 3.这样对应好 4. 就这样下拉下就可以了 5.最后注意代码应该写在 action事件中不要写在按钮事件中否则会造成按钮是灰色的阅读全文

posted @ 2013-08-07 23:46 del88 阅读(23) 评论(0) 推荐(0) 编辑

2013年6月30日

淘宝工作人员手机

该文被密码保护。阅读全文

posted @ 2013-06-30 15:52 del88 阅读(30) 评论(0) 推荐(0) 编辑

2013年6月9日

Delphi IDE 批量替换工具

摘要：阅读全文

posted @ 2013-06-09 10:45 del88 阅读(224) 评论(0) 推荐(0) 编辑

2013年5月29日

Delphi Timer不是多线程

摘要：定时器的中断级别很低，如果你的业务数据自动处理过程对实时性要求不高也可以选择timer，线程是基于系统分配CPU时间片来工作的，对于实时性高，响应快要求高的处理过程最有用。最重要的，线程不会让界面死锁。如果程序现在正在执行a事件，timer事件激活了，需要去处理b事件。程序是怎么运行呢？是先阅读全文

posted @ 2013-05-29 00:23 del88 阅读(29) 评论(0) 推荐(0) 编辑

2013年5月25日

FastReport合并单元格(自己总结)

摘要：这个问题攻了多次都没有解决，实在是心力绞碎。。。就是在没有希望的时候。我的好员工（龚蓼）通过百度这个搜索引擎，搜到一篇文章解决了这个问题：系统中有一个打印需要实现一个字段的显示合并值，而fastreport只提供了抑制重复值属性（SuppressRepeated），它不能直接把框线给自动合并，这阅读全文

posted @ 2013-05-25 23:54 del88 阅读(289) 评论(1) 推荐(0) 编辑

2013年5月23日

FastReport Page与Page#区别

摘要：阅读全文

posted @ 2013-05-23 21:19 del88 阅读(14) 评论(0) 推荐(0) 编辑

FastReport 增加自定义函数的时候,如果函数有默认参数,一定不要忘记下方的也增加下参数,否则默认参数无效

摘要： FastReport 增加自定义函数的时候,如果函数有默认参数,一定不要忘记下方的也增加下参数,否则默认参数无效阅读全文

posted @ 2013-05-23 13:28 del88 阅读(7) 评论(0) 推荐(0) 编辑

2013年5月21日

Delphi标准控件-按钮（Button）和位图按钮（BitBtn）

摘要：按钮（Button）是Windows应用程序界面中最常用、最简单的组件之一。除了按钮之外，Delphi还提供了一种位图按钮（BitBtn）。这种按钮的不同之处在于按钮上可以显示位图。下面我们通过一个简单的例子来介绍这两种按钮。在窗体Form1上放置两个普通按钮和两个位图按钮以及一个编辑框Edit，阅读全文

posted @ 2013-05-21 18:55 del88 阅读(229) 评论(0) 推荐(0) 编辑

如何不让BitBtn点击后窗口自动关闭...及知识小结

摘要：今天在做DELPHI的时候，在第二个窗口中加了一个BitBtn按钮，为了减少枯燥的图标，就给它设置了Kind属性为bkOK，但在运行时这个窗口却在这个按钮点击时被关闭了，本还以为是代码的问题，可前前后后的找了大半天也没有找到，郁闷啊，还以为自己编错了，就重新加个按钮把代码加上去，运行一下是对的，窗口阅读全文

posted @ 2013-05-21 18:52 del88 阅读(20) 评论(0) 推荐(0) 编辑

2013年5月13日

DBGRIDEH 进度条、百分比、列的显示格式(以后很有用途)

摘要：列的显示格式,DisplayFormat 很有用途,这里可以写成##.##%,##% 等等根据自己的情况,这个字段的显示格式很有用途，扩展性很强，也可以写成##元这样以后价格的就会显示67元这样很好这个字段设计的真的是很好下面那列显示进度条的那列，是dbgrideh官方的列子里的代码： p 阅读全文

posted @ 2013-05-13 09:31 del88 阅读(126) 评论(0) 推荐(0) 编辑

2013年5月5日

防止程序重复运行互斥

摘要：将下面的代码放到工程文件中uses windows;...var MutexHandle:Thandle; begin Mutexhandle:=windows.CreateMutex(nil,true,'能代表程序特点的字符串');if Mutexhandle<>0 thenbeginif get 阅读全文

posted @ 2013-05-05 23:55 del88 阅读(15) 评论(0) 推荐(0) 编辑

关于禁止程序重复启动的另一种需要与实现

摘要：手头的程序需要禁止重复启动, 但需要保留新的、关闭旧的. 我想还是从主窗口的类名下手吧; 写了一个函数, 在 OnCreate 中调用即可: { 函数 } procedure CloseSameClassNameWindow(ACurrentWindow: HWND; const AClassNam 阅读全文

posted @ 2013-05-05 23:28 del88 阅读(6) 评论(0) 推荐(0) 编辑

防止程序重复执行的单元

摘要： //工程引用此单元就能防止同时出现多个实例 unit MultInst; interface uses Windows ,Messages, SysUtils, Classes, Forms; implementation const STR_UNIQUE = '{2BE6D96E-827F-4BF 阅读全文

posted @ 2013-05-05 23:26 del88 阅读(125) 评论(0) 推荐(0) 编辑

2013年4月22日

内存泄漏 ReportMemoryLeaksOnShutdown

摘要： DebugHook 与 ReportMemoryLeaksOnShutdown 都是 System 下的变量. DebugHook: 程序中母体中运行时, 此值是 1; 独立运行时, 它是 0. 在程序的任何地方加上一句 ReportMemoryLeaksOnShutdown := True; 这样阅读全文

posted @ 2013-04-22 10:08 del88 阅读(44) 评论(0) 推荐(0) 编辑

Delphi2010中的fastMM，ReportMemoryLeaksOnShutdown，内存泄漏

摘要： Delphi2010集成了fastMM，这回大家调试程序是的时候可以方便地检查内存泄露了。使用方法如下：在project中，添加一行 ReportMemoryLeaksOnShutdown := DebugHook<>0; DebugHook<>0 目的是保证单独运行exe文件不会弹出内存泄露框阅读全文

posted @ 2013-04-22 09:41 del88 阅读(7) 评论(0) 推荐(0) 编辑

TStream类详解

摘要：一. TStream类 1.1 TStream类概述 20.1.1 TStream对象 TStream对象是能在各种媒介中存储二进制数据的对象的抽象对象。从TStream 对象继承的对象用于在内存、Windows资源文件、磁盘文件和数据库字段等媒介中存储数据。 TStream中定义了两个属性：Si 阅读全文

posted @ 2013-04-22 00:26 del88 阅读(7) 评论(0) 推荐(0) 编辑

string与PChar

摘要： Delphi Help 关键字String to PChar conversions 长字符串转换到PChar不是自动的。他们之间的不同点导致他们的转换存在问题。 1，长字符串是引用计数的，而PChar不是 2，赋值给长字符串是数据的拷贝，而PChar是指向数据的指针。 3，长字符串是空止符结尾，并阅读全文

posted @ 2013-04-22 00:21 del88 阅读(6) 评论(0) 推荐(0) 编辑

delphi中pchar、char、string的定义与区别

摘要： Char是单个字符；PChar 就是指向一个以Null 结尾的每个字符为一个字节的字符串的指针。 (可以看成是一个字符串)String是字符数组，以字符#0结尾； Char只占一字节的空间，而Pchar保存的是一个指针，在现在32位的系统中占有1个指针字节的大小。type PChar=^Char; 阅读全文

posted @ 2013-04-22 00:17 del88 阅读(8) 评论(0) 推荐(0) 编辑

delphi如何更改pagecontrol标签颜色

摘要： (1)先把 PageControl1 的 OwnerDraw 属性设为 true(2)程序代码修改如下:procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TR 阅读全文

posted @ 2013-04-22 00:15 del88 阅读(25) 评论(0) 推荐(0) 编辑

ShellExecute（）和WinExec（）区别

摘要：我认为从功能上： createprocess > shellexecute > winexec 复杂程度也是！ winexec() 只用于可执行文件，是一个老函数啦，虽然使用方便，但不推荐！(兼容性也不好) shellexcute()是通过windows外壳打开任意文件，非可执行文件自动通过关联的程阅读全文

posted @ 2013-04-22 00:09 del88 阅读(7) 评论(0) 推荐(0) 编辑

delphi中Webbrowser一些使用技巧

摘要： 1.获取网页中变量的值例如：htm中<script> var currIDS=123</script> 程序中可以这样调用 id := Form1.WebBrowser1.OleObject.Document.script.currIDS 备注：变量可以是javascript定义的,也可以是vbs 阅读全文

posted @ 2013-04-22 00:07 del88 阅读(17) 评论(0) 推荐(0) 编辑

2013年4月20日

彻底解决Delphi的DBGrid控件鼠标滚轮问题

摘要： Delphi的DBGrid控件对鼠标滚轮的支持有问题，不仅不能连续滚动，显示的内容还会错误。在网上找了很多代码段，发现大家都只是针对一个Form页面提出解决方法，而且这些方法都存在一个同样的问题，那就是，如果DBGrid控件里正在进行编辑，则鼠标滚轮根本不起作用。结合这些方法，本人提出了一个通用阅读全文

posted @ 2013-04-20 16:15 del88 阅读(12) 评论(0) 推荐(0) 编辑

2013年4月19日

Delphi中资源文件的应用

摘要：一、引子：现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。为了更好地管理资源，Delp 阅读全文

posted @ 2013-04-19 20:50 del88 阅读(7) 评论(0) 推荐(0) 编辑

2013年4月18日

DBGRIDEH 意外发现 ShowRecNo和SumList.Active结合可以不用下拉到最后就知道一共有多少记录

摘要：注意只针对有底部的才有作用阅读全文

posted @ 2013-04-18 21:29 del88 阅读(16) 评论(0) 推荐(0) 编辑

Delphi中DBChart的应用

摘要： Delphi中DBChart的应用: 1.绑定数据 ADOQuery1.Active:=True; DBChart1.Series[0].DataSource:=ADOQuery1; DBChart1.Series[0].XLabelSource:='FiledName'; DBChart1.Ser 阅读全文

posted @ 2013-04-18 20:38 del88 阅读(15) 评论(0) 推荐(0) 编辑

delphi数据图表DBChart的使用

摘要：一、显示数据柱数据图表DBChart对象用于在报表中插入图表。双击数据图表对象，可以调出图表编辑器： Chart选项：(1)Series类型页可以选择十一种类型的图表以及下列选项，按Add就可以选择图表的类型（3D ：显示3维图表）;按Title..就可以修改图表的名称。(2)General页（图表阅读全文

posted @ 2013-04-18 20:37 del88 阅读(64) 评论(0) 推荐(0) 编辑

2013年4月15日

SuperObject 创建的时候不能Create(nil)

摘要：就是因为创建的时候用Create(nil)造成我调试了半天, 我现在的能力还无法理解为什么, 但是总有一天我会理解的，这里先标注下以后用的时候注意下。阅读全文

posted @ 2013-04-15 17:53 del88 阅读(2) 评论(0) 推荐(0) 编辑

2013年4月8日

严重DBGRIDEH WordWrap只有在数据源打开的情况下设置才有效果

摘要： DBGRIDEH 的WordWrap 单独进行设置无效无奈只有在程序运行起来后对其进行动态设置但是即使进行动态设置也只有数据源打开的情况下设置才能生效否则设置无效不知道这个bug会什么时候修复以下是我的程序中的变通方法： procedure TfrmMain.Button9Cl 阅读全文

posted @ 2013-04-08 16:44 del88 阅读(7) 评论(0) 推荐(0) 编辑

delphi 使用 TIniFile

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Bu 阅读全文

posted @ 2013-04-08 13:55 del88 阅读(15) 评论(0) 推荐(0) 编辑

保存组件的所有设置到ResFile（.dat）文件

摘要： procedure TfrmMain.N20Click(Sender: TObject); begin //判断是那个选项卡 if PrintTab_pc.ActivePageIndex = 0 then begin //打印订单 WriteComponentResFile(ExtractFileP 阅读全文

posted @ 2013-04-08 13:10 del88 阅读(11) 评论(0) 推荐(0) 编辑

2013年4月7日

DBGridEh(RestoreGridLayoutIni)用法表格布局方法

摘要： var MyReg:TRegIniFile;begin MyReg:=TRegIniFile.Create; try MyReg.OpenKey('MyGridInfo',True); DBGridEh1.SaveGridLayout(MyReg); finally MyReg.CloseKey; 阅读全文

posted @ 2013-04-07 22:43 del88 阅读(27) 评论(0) 推荐(0) 编辑

EhLib DBGridEh组件在Delphi中应用全攻略总结

摘要： EhLib DBGridEh组件在Delphi中应用全攻略总结【DBGridEh（增强型表格组件）功能详解】DBGridEh组件无论在外观上还是功能上都非常类似Borland开发工具中现有的dbgrid组件，它除了提供dbgrid组件的全部功能外，还增加了下列新功能:● 任意选择多行、列或矩形区域的阅读全文

posted @ 2013-04-07 22:40 del88 阅读(45) 评论(0) 推荐(0) 编辑

DBGrideh应用大全

摘要： DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览 /打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持阅读全文

posted @ 2013-04-07 22:23 del88 阅读(18) 评论(0) 推荐(0) 编辑