摘要: jquery遍历checkboxvara="";$('input[type="checkbox"][name="chk"]:checked').each(function(){a=a+"|"+$(this).val();});$('input[type="checkbox"][name="chk"]').each(function(){a=a+"|"+$(this).val();});JQuery操作checkbox、rad 阅读全文
posted @ 2011-12-15 17:08 wmymtx 阅读(24607) 评论(1) 推荐(2) 编辑
摘要: TfrxReport此为最主要的报表元件,一个 TfrxReport 元件组成一份报表。在设计时期,双击此元件可打开报表设计器(Report Designer),此元件拥有所有载入、存盘、设计及来看报表必须的属性及方法。TfrxReport 提供的方法:procedure Clear; 清除报表function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean; 从给予的文件载入报表。假如第二个参数等于 “True”且文件不存在,将产生例外状况, 假如文件载入成功,返回值为”T 阅读全文
posted @ 2011-12-12 10:41 wmymtx 阅读(6598) 评论(0) 推荐(2) 编辑
摘要: ----Delphi是一种面向对象的编程语言,由于它采用完全集成OOP的优点,因此 使它成为目前十分流行的Windows开发工具。在Delphi包含的众多类中,TApplic ation是一个有着十分重要作用的类。TApplication类是用于描述Delphi编制的应 用程序的一个类。通过对这个类的灵活应用可以编制许多有特点的程序。下面我 们就举几个这方面的例子。 ----1检测当前Windows程序是否被激活: ----Tapplication类有一个属性——Active,这个属性就可以描述当前运行的程 序是否被激活,成为Windows的焦点。检测的代码如下: IfApplication. 阅读全文
posted @ 2011-12-12 10:08 wmymtx 阅读(610) 评论(0) 推荐(0) 编辑
摘要: varchild:TMDIChildForm;beginchild:=TIMDChildForm.create(application);end;请问,create(参数),有哪些参数可以用,各有什么区别?有nil,application,和self。三种不同的参数主要是资源释放的时候不一样。nil表示生成对象在释放的时候要手工释放,用free过程application表示程序结束的时候自动释放对象self表示对象的拥有者负责对象的释放delphi中Create参数区别delphi中我们创建一个VCL控件时,有多种参数:From.create(参数)参数有以下几种:Application:你的 阅读全文
posted @ 2011-12-12 09:02 wmymtx 阅读(1500) 评论(0) 推荐(0) 编辑
摘要: 项目中有报表图形化的需求, 于是开始在网上找第三方chart控件。因时间紧迫,大至确定了几个候选:一、Office带的OWC控件;二、ComponentOne;三、Web Chart。本文将讲解ASP.NET报表控件。AD:OWC似乎使用者居多,但看见有网友在帖中抱怨OWC在使用时需要许可证书,于是将其排除,我可不想BOSS在看报表时弹出一个“没有许可证书”的窗口。接着找到了ComponentOne的Web chart做出的各种效果图,效果极佳。我一下子被迷住了,决定就是它,于是马不停蹄的下了最新版100多M的安装文件,又花一上午找了个可以用的注册码,再找了篇教程,OK万事俱备,兴匆匆的开始写 阅读全文
posted @ 2011-12-11 11:20 wmymtx 阅读(483) 评论(0) 推荐(0) 编辑
摘要: 简便的方法:其实可以简化问题用TScreen对象的功能就可以了:Screen.Cursor:=crHandPoint;--------------------------------------------------------较复杂的方式 使用API函数 和消息用SetCursor要拦截WM_SETCURSOR以下是一个例子:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, BtnEdit, Buttons; 阅读全文
posted @ 2011-12-10 20:43 wmymtx 阅读(1089) 评论(0) 推荐(0) 编辑
摘要: 需要注意的是 该段程序使用了 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 阅读全文
posted @ 2011-12-10 20:42 wmymtx 阅读(243) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2011-12-10 20:39 wmymtx 阅读(2685) 评论(0) 推荐(0) 编辑
摘要: 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. 阅读全文
posted @ 2011-12-10 20:39 wmymtx 阅读(712) 评论(0) 推荐(0) 编辑
摘要: 正确关闭一个MDI子窗口。Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭,所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化,而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码,示例:rocedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);beginAction := caFree;end; Delphi为一个Form的关闭行为指定了四种方式,分别是:caNone禁止Form被关闭caHideForm不被关闭,但是被隐藏。被隐藏的Form仍然可以被程序访. 阅读全文
posted @ 2011-12-09 22:16 wmymtx 阅读(479) 评论(0) 推荐(0) 编辑