摘要：TfrxReport此为最主要的报表元件，一个 TfrxReport 元件组成一份报表。在设计时期，双击此元件可打开报表设计器(Report Designer)，此元件拥有所有载入、存盘、设计及来看报表必须的属性及方法。TfrxReport 提供的方法：procedure Clear; 清除报表function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean; 从给予的文件载入报表。假如第二个参数等于 “True”且文件不存在，将产生例外状况， 假如文件载入成功，返回值为”T 阅读全文

摘要：----Delphi是一种面向对象的编程语言，由于它采用完全集成OOP的优点，因此 使它成为目前十分流行的Windows开发工具。在Delphi包含的众多类中，TApplic ation是一个有着十分重要作用的类。TApplication类是用于描述Delphi编制的应 用程序的一个类。通过对这个类的灵活应用可以编制许多有特点的程序。下面我 们就举几个这方面的例子。 ----1检测当前Windows程序是否被激活： ----Tapplication类有一个属性——Active，这个属性就可以描述当前运行的程 序是否被激活，成为Windows的焦点。检测的代码如下： IfApplication. 阅读全文

摘要：varchild:TMDIChildForm;beginchild:=TIMDChildForm.create(application);end;请问，create(参数),有哪些参数可以用，各有什么区别？有nil，application，和self。三种不同的参数主要是资源释放的时候不一样。nil表示生成对象在释放的时候要手工释放，用free过程application表示程序结束的时候自动释放对象self表示对象的拥有者负责对象的释放delphi中Create参数区别delphi中我们创建一个VCL控件时，有多种参数：From.create(参数)参数有以下几种：Application:你的 阅读全文

摘要：简便的方法：其实可以简化问题用TScreen对象的功能就可以了：Screen.Cursor:=crHandPoint;--------------------------------------------------------较复杂的方式 使用API函数 和消息用SetCursor要拦截WM_SETCURSOR以下是一个例子：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, BtnEdit, Buttons; 阅读全文

摘要：需要注意的是 该段程序使用了 canvas。procedure TW_CkbTaiZhang.KhLstDrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawState);begin if ARow=khlst.Row then with khlst.Canvas do //画 cell 的边框 begin Pen.Color := $00ff0000; //定义画笔颜色(蓝色) MoveTo(Rect.Left, Rect.Bottom); //画笔定位 LineTo(Rect.Right, Re 阅读全文

摘要：delphi 导出数据到WPS表格的方法和导出到Excel方法雷同，都涉及使用Ole。导出到Wps表格时需要创建这样的Ole组件实例：varetapp:olevariant;myworkbook: OleVariant; //定义金山表格的工作簿对象etapp:=createoleobject('et.application');//启动wps表格现在网上有一段现成的代码，它就是实现将一个表格里的数据导出到 wps的电子表格文档中。具体代码如下：procedure TfrmMain.Button10Click(Sender: TObject);vari,row,column,j 阅读全文

摘要：procedure TfrmMain.xGridDataToExcel(mGrid: TStringGrid; pTitle, SePTitle,pTail, pStrCols: string);vari,j:integer;strlist:Tstringlist;str,Filename:string;h,k:integer;Excelid: OleVariant;s: string;v,sheet,range:variant;icol,irow:integer;nCols:integer;nCurrCol:integer;nCurrRow:integer;beginexcelSaveto. 阅读全文

摘要：在使用MDI介面时，有时候需要在MDI客户窗口中显示一些图形或软件封面，使得软件介面不会显得空旷，软件功能也能一目了然。然而在Delphi中并没有直接给出这些接口。在MDI窗体中放入任何图形控件在运行时都不能显示。因此需要对MDI窗体进行改造。申明：本方案仅针对MDI窗体，如果应用在非MDI窗体中，后果难说，你自已试试吧。记住，窗体的FormStyle属性要设置为：fsMDIForm。解决方案：1. 在MDI主窗体中无法接收到MDI客户窗口的消息（Message），因此，需要自已定义客户窗口的处理过程（Window Procedure），并接管MDI客户窗口（需在重载的CreateWnd过程中 阅读全文

摘要：正确关闭一个MDI子窗口。Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：rocedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);beginAction := caFree;end; Delphi为一个Form的关闭行为指定了四种方式，分别是：caNone禁止Form被关闭caHideForm不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访. 阅读全文

摘要：1.隐藏窗体的标题栏在Delphi中隐藏窗体的标题栏，相信大家都会说是一个件十分容易的事情，只需要设置BorderStyle的属性为bsNone就可以了，不过这种设置方法不但去掉了窗体的标题栏，而且也去掉了窗体的3D边框，这样就显得不好看了，那么请大家试试下面的方法吧。procedure TForm1.FormCreate(Sender: TObject);beginsetwindowlong(form1.Handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);height:=clientheight;//隐藏标 阅读全文