随笔分类 - D 总结或误解澄清
或无痛痒误解
摘要：Delphi 函数大全 - xiucaiyao的专栏 - 博客频道 - CSDN.NEThttp://blog.csdn.net/xiucaiyao/article/details/4544039 名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitpro
阅读全文
摘要：背景：某一天不小心把基类函数写成了 虚函数virtual，子类override 重写时，有同事需要跳过父类执行祖父类的方法代码； 发现 T祖父类（self）.**方法(),时异常。因为虚函数转型为祖父类时，是多态的形式，还是会执行本子类的方法，所有造成一种循环执行代码，造成栈溢出 ； 网上百度到 h
阅读全文
摘要：1、对只读属性误解 property AppSetting: ISuperobject read fAppSetting;当看到 AppInfo.AppSetting.D['lastLat'] := FLastLat; AppInfo.AppSetting.I['lastZoom'] := FLas
阅读全文
摘要：http://www.cnblogs.com/jxsoft/archive/2011/06/02/2067712.html //在任务栏显示 进度条 object Form9: TForm9 Left = 0 Top = 0 Caption = #20219#21153#26639#26174#31
阅读全文
摘要：i:=0; while i <=100 do begin ... INC(i,4); end; 不能用for循环，只能用像上面的方法折衷一下
阅读全文
摘要：procedure SetTransparentForm (popupFrm:TForm;Color:TColor;AlphaBlendValue:Integer); var FrmTransparent: TFrmTransparentForm; begin if not Assigned(FrmTransparent) then FrmTransparent:=TFrmTrans...
阅读全文
摘要：//窗体Showmedol 遇到的奇怪异常： cannot make a visible window model //背景：ShowModal A窗体，A窗体再ShowModal B窗体；A是透明背景窗体，B是提示窗体； //第一次使用该全局变量，使用完毕后，FreeAndNil，目的是不影响第二次使用（和重新初始化属性） if not Assigned(frmAd) then ...
阅读全文
摘要：http://blog.csdn.net/ckli/article/details/2201418
阅读全文
摘要：实际中： function GetSubForm(SubFormName:string):TForm;virtual;abstract; //子类中 function GetSubForm(SubFormName:string):TForm;override;
阅读全文
posted @ 2016-09-12 20:09
海蓝7
摘要：想法源于：类可以提前声明，具体类内容可以后面写明； TFrmChangePWTransparent = class; //这里声明其他的类，或一些表里 TFrmChangePWTransparent = class(TForm) end; 构思：一个包写好好多类名，然后在另一包写好具体类的属性方法，
阅读全文
摘要：[plain] view plain copy 根据枚举定义集合 TMyColor = (mcBlue, mcRed); TMyColorSet = set of TMyColor ; [plain] view plain copy 根据枚举定义数组 type TMyEnum = (red,green,blue); {定义枚举} procedure TF...
阅读全文
摘要：TListBox TListView 都是可以通过通过.AddItem(Item: string; AObject: TObject); 来存储对象 listview 类似 gridview ， 表现很丰富， 可以显示图标，有多列 LISTBOX 很简单， 就一列，就是简易的 COMBOBOX 《T
阅读全文
posted @ 2016-08-19 17:55
海蓝7
摘要：Delphi XE6新增特性及功能 (2014-05-20 01:30:40)转载▼ 标签： it 分类： DelphiXE6 Delphi 6新增了一些特性并增强了原有的功能，主要有以下几个方面： IDE（整合开发环境） Internet XML（扩展标记语言） Compiler（编译器） COM/Active X Database support（数据库支持） CORBA Act...
阅读全文
posted @ 2016-08-19 14:23
海蓝7
摘要：// http://www.cnblogs.com/findumars/p/3907635.html 正常情况下，鼠标指针位于哪个窗口区域内，鼠标消息就自动发给哪个窗口。如果调用了SetCapture，之后无论鼠标的位置在哪，鼠标消息都发给指定的这个窗口，直到调用ReleaseCapture或者调用
阅读全文
posted @ 2016-08-19 10:45
海蓝7
摘要：1、Invalidate介绍 void Invalidate( BOOL bErase = TRUE ); 该函数的作用是使整个窗口客户区无效。窗口的客户区无效意味着需要重绘，例如，如果一个被其它窗口遮住的窗口变成了前台窗口，那么原来被遮住的部分就是无效的， 需要重绘。这时Windows会在应用程序的消息队列中放置WM_PAINT消息。MFC为窗口类提供了WM_PAINT的消息处理函数...
阅读全文
posted @ 2016-08-19 10:06
海蓝7
摘要：//编译开关，预编译 //1、异常时输出调试信息 {$IFDEF DEBUG} OUTPUTDEBUGSTRINGW(PChar('发送请求：' + inttostr(APIIndex) + '--' + ReqID)); //2、输出调试信息 {$ENDIF} //3、debug模式下输出异常 try Except {$IFDEF DEBUG} OUTPUTDEBUGST...
阅读全文
摘要：unit Ufunction; interface uses Windows, Messages, Winsock, Registry, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrid...
阅读全文
posted @ 2016-08-06 15:51
海蓝7
摘要：implementation //实现下写好函数 procedure SendMail(Pwd, SendTO, Sendcc, Sendbcc, Subject, Content, FilePath: string); stdcall; external 'MailSender.dll'; function DecodePW(str: string): string; stdcall; ex...
阅读全文
posted @ 2016-08-06 15:37
海蓝7
摘要：Label不是一个"真实"的控件,是画在Parent上的,而Panel是一个真是的Windows,有句柄的. 实的能挡住虚的,虚的不能挡住实的. 非要遮挡的话要么把Label放在Panel上,要么不用Label而是用Panel模拟. 拓展：Tdxbar 菜单上方放一个Panel（所属窗体），pane
阅读全文
posted @ 2016-07-25 10:51
海蓝7
摘要：Delphi XE2 三个新功能介绍举例_西西软件资讯 http://www.cr173.com/html/13179_1.html delphi 2007新功能简介-davidxueer-ChinaUnix博客 http://blog.chinaunix.net/uid-217463-id-268
阅读全文
浙公网安备 33010602011771号