2013年4月9日
MessageBox的MB_SYSTEMMODAL参数用法
摘要： 经测试,使用了MB_SYSTEMMODAL参数,弹出对话框时此对话框会抢夺焦点,即就算焦点在其他程序上,也强.其他的几个参数都没有这个效果MessageBox(self.Handle,'你好','好',MB_OK or MB_ICONQUESTION or MB_SYSTEMMODAL)//or MB_TASKMODAL// or MB_SYSTEMMODAL 阅读全文
posted @ 2013-04-09 15:30 Handll 阅读(3120) 评论(0) 推荐(0) 编辑
2013年4月6日
线程学习
摘要： 1: Indy的线程TIdThread中的执行函数Run会反复执行,因为其OnExecute中是这样写的部分代码 try BeforeRun; try while not Stopped do begin //这里循环 Run; end; finally AfterRun; end;//tryf finally Cleanup; end;所以 TIdTCPServer 的 ... 阅读全文
posted @ 2013-04-06 23:28 Handll 阅读(241) 评论(0) 推荐(0) 编辑
2013年1月12日
ACCESS数据库支持的最大在线连接数(转)
摘要： 转自:http://blog.csdn.net/shaitaiyang/article/details/5116589ACCESS数据库支持的最大在线连接数，由于很多客户问到ACCESS数据库与MS-SQL数据库的区别，Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。Microsoft Access数据库有一定的极限，本身对于同时访问客户端及容量都有一定的缺陷。Microsoft SQL Server是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Microsoft Access 要强得多。在处理海量数据的 阅读全文
posted @ 2013-01-12 23:38 Handll 阅读(3485) 评论(0) 推荐(0) 编辑
2012年12月23日
淘宝接口 TopAPi(转)
摘要： 本文转自delphi盒子:http://www.2ccc.com/article.asp?articleid=6121感谢作者废话先不说，先用D2007写一个Demo，演示一下调用淘宝的接口，让大家心里有个数，很简单，新建一个工程，拖一个IDHttp,Button和Memo到窗体上去然后在这个Button的OnClick事件中写入如下代码：[delphi]viewplaincopyprocedureTfrmMain.btnCallTopAPIClick(Sender:TObject);varAHttpRequestURL:String;AHttpReponseContent:TMemorySt 阅读全文
posted @ 2012-12-23 22:36 Handll 阅读(4022) 评论(0) 推荐(0) 编辑
2012年10月11日
delphi 各新版本特性收集
摘要： Embarcadero推出RAD Studio 2010 用于建立触摸屏应用程序【CSDN8月20日消息】根据国外媒体报道，Embarcadero Technologies公司宣布推出RAD Studio 2010。开发者可以利用它提供的便捷的触摸屏开发框架来创建基于触摸GUI界面的程序，包括平板电脑、触摸板和kiosk程序。该版本提供了如下的新特性和功能：创建手势识别和触摸控制的程序。内置了超过30种的手势设定，包括上、下、左、右以及像平移、缩放和旋转。可以通过VCL Gesture Designer在组件级对手势进行可视化设定和添加。可以在输入屏幕上建立虚拟触摸板和多语言键盘。可以在只对代 阅读全文
posted @ 2012-10-11 11:19 Handll 阅读(3266) 评论(0) 推荐(0) 编辑
2012年10月9日
让你的程序通过XP防火墙(转)
摘要： procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject('HNetCfg.FwMgr'); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication'); FwApp.Name :='我的测试'; //显示名字 FwApp.Process 阅读全文
posted @ 2012-10-09 14:33 Handll 阅读(290) 评论(0) 推荐(0) 编辑
2012年4月12日
Web学习笔记
摘要： 书籍《Javascript王者归来》1: javascript将按代码的先后顺序执行(javascript执行时不能引用其代码之后的对象). <body onload=""> 中的onload事件是在整个文档被完全载入后才被触发执行的.2: 怪不得打开本地网页文件时, 只要文件包含javascript脚本,网页就会禁止脚本功能, 并给与提示:原来, 浏览器通过远程获取的javascript不允许有本地文件操作, 比较安全, 但在本地打开时是可以进行文件操作的, 使用FSO对象.3: 在域中,对变量的查找总是从当前域开始, 递归向上查找各级嵌套的父域, 最后到达全 阅读全文
posted @ 2012-04-12 18:34 Handll 阅读(154) 评论(0) 推荐(0) 编辑
2012年3月16日
RTC学习记录
摘要： 1: 要让客户端在网络断开后自动连接到服务器需: A:RTCHttpClient的ReconnectOn 属性需要设置 B:RTCHttpClient的AutoConnect属性必须为False (这个属性为True时,当没有建立连接时而Call远程函数,会自动连接)2: 注意: 所有的RTCHttpServer和RTCHttpClient组件的事件都必须类似这样写代码(如):procedure TForm1.RtcHttpServer1ListenStart(Sender: TRtcConnection);begin if not Sender.inMainThread then S... 阅读全文
posted @ 2012-03-16 00:27 Handll 阅读(850) 评论(0) 推荐(0) 编辑
2012年3月10日
获取操作系统类型/版本以及是否是64位的函数
摘要： //以下代码均来自网络function GetWindowsVersionString: AnsiString;var VI: TOSVersionInfoA;begin VI.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA); if GetVersionExA(VI) then with VI do Result := Trim( Format( '%d.%d build %d %s', [dwMajorVersion, dwMinorVersion, dwBuildNumber, szCSDVersion] ) ) else Re 阅读全文
posted @ 2012-03-10 00:18 Handll 阅读(689) 评论(0) 推荐(0) 编辑
2012年2月29日
cxGrid用法（转）
摘要： 好久没有写笔记了，现在有点时间，来篇。 happycyp 2007-7-19cxGrid功能强大，适合做企业级的复杂查询。非常方便。但是对其用法介绍的并不多，在此总结他人的使用经验和自己的一点小经验，供大家参考。（１）动态设置显示格式procedure SetDisplayFormat(ACtrlData: TClientDataSet; TbView: TcxGridDBTableView);var i: integer;begin if ACtrlData.RecordCount <= 0 then Exit; try TbView.ClearItems; ACtr... 阅读全文
posted @ 2012-02-29 21:35 Handll 阅读(7978) 评论(0) 推荐(0) 编辑
下一页