摘要: procedure TForm1.lst1DrawItem(Control: TWinControl; Index: Integer; //对TListBox 添加的内容判断 并分别在前面加上图标; Rect: TRect; State: TOwnerDrawState);begin if ... 阅读全文
posted @ 2015-04-28 18:02 海蓝7 阅读(152) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.BitBtn1Click(Sender: TObject); //导入Excel文件var OpenExcelfile: TOpenDialog; i, j: Integer; MsExcel: Variant; MsExcelWorkBook: Varia... 阅读全文
posted @ 2015-04-28 17:56 海蓝7 阅读(151) 评论(0) 推荐(0) 编辑
摘要: http://www.delphifans.com/infoview/Article_730.html日期:2006年2月20日 作者:潇潇2003 人气:5602 查看:[大字体 中字体 小字体]1.引言在利用Delphi开发应用程序的时候,通常我们要设计出很多各种格式的文档、报表,经常要进行文件... 阅读全文
posted @ 2015-04-28 17:41 海蓝7 阅读(314) 评论(0) 推荐(0) 编辑
摘要: \Delphi 6数据库开发典型实例\图表的绘制1、在主窗体里面打开子窗体:ShowForm(Tfrm_Print);procedure Tfrm_Main.ShowForm(AFormClass:TFormClass);beginwith AFormClass.Create(Self) dotry... 阅读全文
posted @ 2015-04-28 15:11 海蓝7 阅读(385) 评论(0) 推荐(0) 编辑
摘要: 这是Delphi7自带例子C:\Program Files\Borland\Delphi7\Demos\TeeChart以下为翻译的文字,有部分不准确。TeeChart Pro 5.0是一个库 100%的原生Borland Delphi图表和图形组件可以包括在您的应用程序。TeeChart Pro ... 阅读全文
posted @ 2015-04-28 14:50 海蓝7 阅读(591) 评论(0) 推荐(0) 编辑
摘要: 1、计算软件启动了多长时间:用定时器,每分钟触发一次;procedure TFrmMain.tmCheckLegalTimer(Sender: TObject);Var Minutes:LongInt; NewDay:String;begin Minutes:=MyReg.ReadInteger(... 阅读全文
posted @ 2015-04-28 09:19 海蓝7 阅读(766) 评论(0) 推荐(0) 编辑