DELPHI自定义事件处理

为什么我们点击按钮，就会执行按钮的onclick事件？这个事件是怎么和我们自己的代码关联起来的。相信很多人都有这个疑问。那么我们就通过一个自定义事件来了解这里面得运行原理。以乘法运算来显示，如果乘数大于100，就提示用户，太大了。这个事件用自定义事件定义。 大家先看一下最终效果，

我添加了三个文本框，一个按钮，当第一或者第二个文本框的数>100时，点求积按钮，提示Too Big 对话框。

完成自定义事件需要5步来做：

1.定义TNotifyEvent类型私有变量

FTooBig:TNotifyEvent;

FTooBig是一个指针，它可以保持事件方法的调用地址。

2.公布一个属性

published property OnTooBig:TNotifyevent read FTooBig write FTooBig;

OnTooBig这个属性用来操作FTooBig这个私有变量，因为FTooBig是个函数指针，所以但读这个变量时，也就调用了函数。

3.定义事件处理函数

procedure TooBigEvent(Sender: TObject); procedure TForm1.TooBigEvent(Sender: TObject); begin Application.MessageBox('Too Big','Test Event!',MB_OK); end;

这是当文本框数太大时执行的方法。

4. 把事件处理函数赋值给TNotifyEvent私有变量

FTooBig := TooBigEvent;

5. 当条件符合时执行事件处理函数

procedure TForm1.Button1Click(Sender: TObject);var val1 : integer; val2 : integer; res : integer;begin val1 := StrToInt(Edit1.Text); val2 := StrToInt(Edit2.Text); if(val1<100)and(val2<100) then begin res := val1*val2; Edit3.Text := IntToStr(res); end else if assigned(FTooBig) then OnTooBig(Self);end;

下面贴出全部代码：

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; procedure TooBigEvent(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private FTooBig:TNotifyEvent; { Private declarations } public { Public declarations } published property OnTooBig:TNotifyevent read FTooBig write FTooBig;end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var val1 : integer; val2 : integer; res : integer;begin val1 := StrToInt(Edit1.Text); val2 := StrToInt(Edit2.Text); if(val1<100)and(val2<100) then begin res := val1*val2; Edit3.Text := IntToStr(res); end else if assigned(FTooBig) then OnTooBig(Self);end;procedure TForm1.TooBigEvent(Sender: TObject);beginApplication.MessageBox('Too Big','Test Event!',MB_OK);end;procedure TForm1.FormCreate(Sender: TObject);beginFTooBig := TooBigEvent;end;end.

含浩 – who has written 205 posts on 含浩的博客.

含浩：邯郸搜搜网站长。多年从事j2ee系统研发，曾设计开发东奥会计网答疑系统，国家环保局外网数据中心报表开发，现从事.net开发工作，运营邯郸搜搜网，国外主机域名销售，discuz模板制作。

Send an Email

Tags: delphi, 自定义事件

This entry was posted on 星期四, 一月 12th, 2012 at 20:18 and is filed under delphi. You can follow any comments to this entry through the RSS 2.0 feed. You can leave a comment, or trackback.

View the original article here

如何为Linux主机添加Zend Optimizer支持

这表明linux主机并没有启用Zend Optimizer。下面我们将通过自定义加载的方式启用Zend Optimizer：

http://www.zend.com/en/products/guard/downloads，我们的linux主机为64位的系统，在此我们选择Zend Optimizer最新版3.3.9，针对linux版本的64位的Zend Optimizer下载。

解压后文件如下所示：

打开data文件夹后，如下图所示：

这是每一个php版本所对应的不同的Zend Optimizer扩展。用phpinfo函数查看linux主机php版本，如下图所示

因此，在此我们选择打开5_2_x_comp文件夹，将ZendOptimizer.so文件上传到linux主机的根目录下。

注：我们的linux主机根目录一般是指public_html或www目录，两者是一样的。

其中的/home/mytesq1z是你linux主机的主目录，进入主机控制后台的Cpanel面板即可看到。

如果出现

表示Zend Optimizer加载成功。否则表示没有成功加载，请检查php.ini是否以二进制ftp上传，php.ini中的Zend Optimizer路径是否正确。

含浩 – who has written 205 posts on 含浩的博客.

含浩：邯郸搜搜网站长。多年从事j2ee系统研发，曾设计开发东奥会计网答疑系统，国家环保局外网数据中心报表开发，现从事.net开发工作，运营邯郸搜搜网，国外主机域名销售，discuz模板制作。

Send an Email

Tags: ftp, linux, Zend Optimizer, 上传

This entry was posted on 星期二, 一月 17th, 2012 at 17:23 and is filed under linux. You can follow any comments to this entry through the RSS 2.0 feed. You can leave a comment, or trackback.

View the original article here

wordpress通过小工具添加站长统计

wordpress虽然有很多站长统计的插件，无奈用国产的统计代码习惯了，怎么添加诸如51.la的站长统计呢？

通过外观->小工具，把文本模块拖到右侧边栏，在里面填写51.la代码，保存，就可以了。就像本站的右侧的统计代码一样。怎么样，简单吧。

含浩 – who has written 205 posts on 含浩的博客.

含浩：邯郸搜搜网站长。多年从事j2ee系统研发，曾设计开发东奥会计网答疑系统，国家环保局外网数据中心报表开发，现从事.net开发工作，运营邯郸搜搜网，国外主机域名销售，discuz模板制作。

Send an Email

Tags: 插件, 站长统计, 统计

View the original article here

刚刚给朋友代购了一个123Systems的15美金一年的vps

为安全因素，我用自己的账号信息购买的，怕官方不允许代购，整个购买过程很顺利，完全自动化处理的。我用的是paypal付款，绑定光大的商旅信用卡，付款后，同时就开通了。

123Systems一共发给我5个邮件，一个是欢迎注册，是你在123systems的账户信息，第二封是订单确认，包含你购买vps的订单信息，第三方，客户支票，要你付款。第四封就是你vps的账户信息，包含Control Panel ，服务器ip，ssh登陆账户，第五封就是，付款确认信息。另外，每次登陆Control Panel，还会给你发送邮件。

vps的信息如下

[root@test ~]# uname -aLinux test 2.6.18-274.7.1.el5.028stab095.1 #1 SMP Mon Oct 24 20:49:24 MSD 2011 i686 i686 i386 GNU/Linux[root@test ~]# cat /proc/cpuinfoprocessor : 0vendor_id : GenuineIntelcpu family : 6model : 26model name : Intel(R) Xeon(R) CPU E5504 @ 2.00GHzstepping : 5cpu MHz : 1000.035cache size : 4096 KBfpu : yesfpu_exception : yescpuid level : 11wp : yesflags : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss syscall nx rdtscp lm constant_ts c nonstop_tsc pni ssse3 cx16 sse4_1 sse4_2 popcnt lahf_lmbogomips : 4000.14clflush size : 64cache_alignment : 64address sizes : 40 bits physical, 48 bits virtualpower management: [8]processor : 1vendor_id : GenuineIntelcpu family : 6model : 26model name : Intel(R) Xeon(R) CPU E5504 @ 2.00GHzstepping : 5cpu MHz : 1000.035cache size : 4096 KBfpu : yesfpu_exception : yescpuid level : 11wp : yesflags : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss syscall nx rdtscp lm constant_ts c nonstop_tsc pni ssse3 cx16 sse4_1 sse4_2 popcnt lahf_lmbogomips : 4000.14clflush size : 64cache_alignment : 64address sizes : 40 bits physical, 48 bits virtual[root@test ~]# df -lhFilesystem Size Used Avail Use% Mounted on/dev/simfs 10G 514M 9.5G 6% /none 192M 4.0K 192M 1% /dev[root@test ~]#power management: [8]

含浩 – who has written 205 posts on 含浩的博客.

含浩：邯郸搜搜网站长。多年从事j2ee系统研发，曾设计开发东奥会计网答疑系统，国家环保局外网数据中心报表开发，现从事.net开发工作，运营邯郸搜搜网，国外主机域名销售，discuz模板制作。

Send an Email

Tags: 123systems, linux, paypal, 信用卡

This entry was posted on 星期五, 一月 13th, 2012 at 10:20 and is filed under 代购. You can follow any comments to this entry through the RSS 2.0 feed. You can leave a comment, or trackback.

View the original article here

notepad++利用NppFTP操作远程服务器文件

经常跟网站打交道，需要不时的修改网站文件，然而每次修改都要通过ftp下载文件，修改，然后上传文件，很麻烦，我们可以用notepad++的插件NppFtp操作远程服务器文件。

首先打开NppFtp界面，填写ftp账户信息，连接，然后打开你要修改的文件，这时此文件将会用notepad++打开，修改，保存，这时NppFtp会自动保存你修改的文件至服务器。这时刷新页面吧，你修改的效果已经改变了。很方便吧！！！

含浩 – who has written 205 posts on 含浩的博客.

含浩：邯郸搜搜网站长。多年从事j2ee系统研发，曾设计开发东奥会计网答疑系统，国家环保局外网数据中心报表开发，现从事.net开发工作，运营邯郸搜搜网，国外主机域名销售，discuz模板制作。

Send an Email

Tags: ftp, notepad++, NppFtp, 上传, 插件

This entry was posted on 星期日, 一月 15th, 2012 at 19:07 and is filed under web开发. You can follow any comments to this entry through the RSS 2.0 feed. You can leave a comment, or trackback.

View the original article here

yardvps怎么样？价格便宜，中国访问速度超快，稳定的vps美国vps

yardvps，相信用美国主机的朋友一定听说过，它的机房位于美国西海岸洛杉矶，中国大陆访问速度超快，是中国访问速度较快的美国主机，在线率官方承诺99%，本站就是架设在yardvps上。真可谓物美价廉。

含浩 – who has written 205 posts on 含浩的博客.

含浩：邯郸搜搜网站长。多年从事j2ee系统研发，曾设计开发东奥会计网答疑系统，国家环保局外网数据中心报表开发，现从事.net开发工作，运营邯郸搜搜网，国外主机域名销售，discuz模板制作。

Send an Email

Tags: yard, yardvps

This entry was posted on 星期五, 一月 20th, 2012 at 18:56 and is filed under vps. You can follow any comments to this entry through the RSS 2.0 feed. You can leave a comment, or trackback.

View the original article here

paypal购买国外主机注意取消租用，循环付款

请看图示

请看图示

含浩 – who has written 205 posts on 含浩的博客.

含浩：邯郸搜搜网站长。多年从事j2ee系统研发，曾设计开发东奥会计网答疑系统，国家环保局外网数据中心报表开发，现从事.net开发工作，运营邯郸搜搜网，国外主机域名销售，discuz模板制作。

Send an Email

Tags: paypal, 信用卡

This entry was posted on 星期二, 一月 17th, 2012 at 11:35 and is filed under 代购. You can follow any comments to this entry through the RSS 2.0 feed. You can leave a comment, or trackback.

View the original article here

hello, pet clothing web site is opening!!!

welcome,this blog is about pet clothing.