Delphi
文章平均质量分 55
水煮鱼的博客
专注问卷调查相关软件开发
展开
-
查找并释放窗体
由于经常出现,要创建窗体,但又怕他已经创建了,所以我们一般先要扑捉到窗体并释放掉他,现在有两种方法1) if assigned(FStudentGrade) thenfreeAndNil(FStudentGrade);2)可能由于在窗体关闭时没有释放掉所有资源,所以有的时候上面的方法没有用,所以采用下面的方法可以解决 try for i := 0 to Screen.原创 2007-08-14 12:02:00 · 940 阅读 · 0 评论 -
fast report for delphi
1)fast report的简单的主从表使用(subreport)fast report报表打印可分两种:一种为动态打印,也就是我们一般的打印预缆(rptMain.ShowReport()),另外一种为设计(rptMain.DesignReport())可以通过设计来排好我们需要的打印格式。首先在界面上添加一个TfrxReport一个TFrxDBDataset和TDataSource及相关数据源原创 2007-08-14 11:16:00 · 2365 阅读 · 0 评论 -
水晶报表(Crystal Reports 9) 分组 分页 delphi
报表->组专家 并把字段拖到组页眉里面原创 2010-03-10 22:04:00 · 1721 阅读 · 0 评论 -
nsis安装for delphi/.net
nsis for delphi and net原创 2010-09-15 17:24:00 · 1520 阅读 · 0 评论 -
operation not applicable
delphi+sqlserver开发的一个系统,在本机(windows xp)和另外一台机器(windows 2003 server)上没有问题,但是在windows 7和另外一台windows xp上却有问题,出错为“operation not applicable”。代码如下: with cdsSeaQuery do begin close; commandte原创 2011-06-16 22:49:00 · 5463 阅读 · 0 评论 -
水晶报表(Crystal Reports 9) for delphi
当安装了Crystal Reports 9后,在delphi的Data Access页中显示Tcrpe和TCrpeDS两个控件,1)选择报表控件crpe1:Tcrpe和数据源控件qryRptPath:TSQLDataSet及打印设置控件PrintDialog1: TPrintDialog2)在窗体初始化事件中var CurrentDir:string; CFGIniFiles: TIniFil原创 2007-07-02 14:46:00 · 3539 阅读 · 0 评论 -
知识小结(Delphi)
1) Error loading midas.dll 没有注册midas.dll 运行RegSver32.exe midas.dll2)Result := GetProcAddress(FGDIPlusLibrary, PChar(ProcName));编译 出现这样的问题,应该是设置方面的问题,Project->Options->Complier->Hugestrings 钩上就ok原创 2009-10-28 09:20:00 · 2701 阅读 · 0 评论 -
Invalid typecast
Result := GetProcAddress(FGDIPlusLibrary, PChar(ProcName));编译 出现这样的问题,应该是设置方面的问题,Project->Options->Complier->Hugestrings 钩上就ok了!原创 2007-09-14 09:21:00 · 1505 阅读 · 0 评论 -
创建窗体列表
找到MDI主窗口,然后在菜单中增加一个用来放窗口列表的菜单项如M1,这样在主窗口的属性windowmenu里选择m1就可以了。只要主窗口有创建子窗口就会在m1的菜单下加一个项。 var i:integer; child :Tform; fchild :Tform;begin for i:=0 to Screen.FormCount -1 do if原创 2007-09-06 12:54:00 · 1069 阅读 · 0 评论 -
控制程序唯一运行
var HMutex: THandle;Begin // check if mutex already exists HMutex := CreateMutex(nil, False, This is Budded Single App Demo); if HMutex 0 then if WaitForSingleObject(HMutex, 0) WAIT_TI原创 2007-08-30 18:22:00 · 737 阅读 · 2 评论