摘要：
delphi的包是delphi ide的核心技术，没有包也就没有了delphi的可视化编程。包也可以用在我们开发的项目中，其好处是可以代码共享，减小工程尺寸，单纯通过替换包文件就能实现工程的升级和补丁。但是我们要加载包，就要知道包中已经存在的类。关于如何动态加载包的资料比比皆是我就不想就此问题讨论了。但是delphi的ide很是特殊，它无需事先知道你的包有哪些类就能注册组建，创建组建。但是bor......
摘要：
新开一个project，然后拖两个button放在窗体上代码如下：unit unit1;
interface
uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls;
type tform1 = class(tform) btnaddbutton: t......
Delphi的拨号连接类上一页 ... property phonenumber: string read getphoneno write setphoneno; property callbacknumber: string read getcallback write setcallback; 【程序编程相关:
用DELPHI实现对象持久层(-)】 【推荐阅读:
Delphi实用代码:自绘XP风格菜单】 property domain: string read getdomain write setdomain; 【扩展信息:
为Windows Service添加服务】 property entryname: string read getentryname write setentryname; property username: string read getusername write setusername; property password: string read getpassword write setpassword; property active: boolean read getconnected write setconnected; procedure connect; procedure disconnect; function geterrorcode: integer; procedure freeandhangup; constructor create; reintroduce; destructor destroy; override; procedure createrasentry; procedure deleterasentry(aentryname: string); //function geterrorreason: integer; end;
implementation
{ trasconnection }
procedure trasconnection.connect;
var i: integer; s: string; begin fparams.dwsize := sizeof(rasdialparams); i := rasdial(nil, nil, @fparams, 0, nil, @frasconn); if i <> 0 then begin ferrno := i; case i of 691: s := 身分验证失败!; 692: s := 打开端口失败!; 676: s := 线路忙,请稍候再拨!; ...
下一页 摘要：
uses commctrl;
var oldwindowproc: twndmethod;
procedure tform1.mywindowproc(var msg: tmessage);begin if msg.msg = cn_notify then begin case twmnotify(msg).nmhdr.code of mcn_getdaystate: memo1.lines......
