-人生如歌- - 博客园

2015年5月11日

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls;type TForm... 阅读全文

posted @ 2015-05-11 16:40 -人生如歌- 阅读(947) 评论(1) 推荐(0)

2015年3月25日

DBGridEh改变选中行颜色

摘要：运行效果:选中行变为蓝色步骤1:设置dbgrid的options的dgrowselect为true.步骤2:在dbgrid的ondrawcolumncell事件里面写上:procedureTForm1.DBGrid1DrawColumnCell(Sender:TObject;constRect:TR... 阅读全文

posted @ 2015-03-25 17:42 -人生如歌- 阅读(3883) 评论(1) 推荐(0)

2015年2月10日

JS调用Delphi编写的OCX控件

摘要：一、使用Delphi XE2编写OCX控件生成OCX工程： 1、File-New-Other，在New Items对话框中选择Delphi Projects-ActiveX-ActiveX Library 2、File-New-Other，在New Items对话框中选择Delphi Pro... 阅读全文

posted @ 2015-02-10 17:16 -人生如歌- 阅读(1125) 评论(0) 推荐(0)

2014年12月29日

Delphi线程定时器

摘要： (* 自己编写的线程计时器，没有采用消息机制，很有效 Cobbler续写不用 TTimer 的原因: 要说TTimer类的使用问题，先要说一下它响应用户定义的回调函数(OnTimer)的方法。 TTimer拥有一个HWnd类型的成员变量FWindowHand... 阅读全文

posted @ 2014-12-29 16:49 -人生如歌- 阅读(5075) 评论(0) 推荐(0)

2014年12月13日

DBGridEh导出

摘要： procedure ExportGridEh(DBGridEh:TDBGridEh);var ExpClass:TDBGridEhExportClass; Ext:String; dlgsave:TSaveDialog;begin dlgsave:= TSaveDialog.Create(n... 阅读全文

posted @ 2014-12-13 13:14 -人生如歌- 阅读(414) 评论(0) 推荐(0)