导航

2010年8月5日

摘要: 本文主要讲解了如何判断一个图片文件的真实类型,并不是从后缀名来判断类型的方法: 以下是引用片段: unit Unit55; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TImageType =... 阅读全文

posted @ 2010-08-05 10:07 beeone 阅读(2321) 评论(0) 推荐(0)

2010年8月4日

摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi; type TForm1 = class(TForm) ListBox1: TListBox; Dr... 阅读全文

posted @ 2010-08-04 17:26 beeone 阅读(512) 评论(0) 推荐(0)

摘要: MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Inte... 阅读全文

posted @ 2010-08-04 17:17 beeone 阅读(193) 评论(0) 推荐(0)

摘要: 自己捕捉WM_MOUSEWHEEL消息处理private OldGridWnd : TWndMethod;procedure NewGridWnd (var Message : TMessage);publicprocedure TForm1.NewGridWnd(var Message: TMessage);var IsNeg : Boolean;begin if Message.Msg = W... 阅读全文

posted @ 2010-08-04 16:46 beeone 阅读(287) 评论(0) 推荐(0)

摘要: 了以上这么多的技巧和方法,想必大家未免会有一种冲动吧-自己动手做一个DBGrid,下面就介绍一种自制DBGrid的方法啦。 Delphi中的TDBGrid是一个使用频率很高的VCL元件。TDBGrid有许多优良的特性,例如它是数据绑定的,能够定义功能强大的永久字段,事件丰富等,特别是使用非常简单。但是,与FoxPro、VB 、PB中的DBGrid相比就会发现,TDBGrid也有明显的缺陷:它的键... 阅读全文

posted @ 2010-08-04 16:44 beeone 阅读(410) 评论(0) 推荐(1)

摘要: procedure PrintDbGrid(DataSet:TDataSet;DbGrid:TDbGrid;Title:String);varPointX,PointY:integer;ScreenX:integer;i,lx,ly:integer;px1,py1,px2,py2:integer;RowPerPage,RowPrinted:integer;ScaleX:Real;THeight:i... 阅读全文

posted @ 2010-08-04 16:43 beeone 阅读(329) 评论(0) 推荐(0)

摘要: 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件,设置相关的属性,使 DBGrid1 能显示表中的数据。然后,在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码,然后运行程序代码:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;D... 阅读全文

posted @ 2010-08-04 16:42 beeone 阅读(395) 评论(0) 推荐(0)

摘要: { 背景:今天要把DataSet导入Excel,查询以前的贴子,一部分用Ole,速度太慢, 一部分用ADO连接到Excel文件,也很慢,一气之下把DBGrigEh的导出部分改了出来, 欢迎大家指教、改进。 功能:将数据集的数据导入Excel; 用法:With TDS2Excel.Create(TDataSet(ADOQuery1)) do Try Save2File(SaveDialog1.Fi... 阅读全文

posted @ 2010-08-04 16:40 beeone 阅读(264) 评论(0) 推荐(0)

摘要: 1 创建Excel文件  要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。  创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:  f... 阅读全文

posted @ 2010-08-04 16:38 beeone 阅读(593) 评论(0) 推荐(1)

摘要: 前言:  在软件实际制作中,为节省开发成本和开发周期,一些软件人员通常会吧DBGrid中的数据直接导出到Excel表中,而先前能看到的函数仅仅只能在WorkBook的一个Sheet中导入数据,不支持多Sheet!。单元应用:Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCt... 阅读全文

posted @ 2010-08-04 16:37 beeone 阅读(221) 评论(0) 推荐(0)