注意，这些函数只有Private一种形式（也就是不允许覆盖，但仍在动态表格中）： 其中TWinControl对TControl有10个消息进行了覆盖（红色标记），其中有2个是WM_消息，8个是CM_消息。 再看它的WndProc函数： 当然还有DefaultHandler： 这样算下来，TWinCo Read More
posted @ 2016-03-30 22:36
findumars
Views(1128)
Comments(0)
Diggs(0)
注意，这些函数只有Private一种形式（也就是不允许覆盖，但仍在动态表格中）（特别注意，这里居然没有WM_PAINT函数）： 同时把它的WndProc列出来，这样它能处理的消息就齐了： 当然还有DefaultHandler： 我还特意查了一下Delphi 5.0和Delphi 7.0的差别，主要就 Read More
posted @ 2016-03-30 22:25
findumars
Views(1098)
Comments(0)
Diggs(0)
相关资料：http://www.2ccc.com/news/Html/?1507.html DelphiXE7新建WebService具体操作：1.打开“DelphiXE7”->“File”->“New”->“Other”2.“New Items”－>“Delphi Projects”->“WebS Read More
posted @ 2016-03-30 21:26
findumars
Views(2100)
Comments(0)
Diggs(0)
[delphi] view plain copy [delphi] view plain copy unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System Read More
posted @ 2016-03-30 21:06
findumars
Views(1618)
Comments(0)
Diggs(0)
[delphi] view plain copy unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Shel Read More
posted @ 2016-03-30 20:57
findumars
Views(1577)
Comments(0)
Diggs(0)
[delphi] view plain copy unit Unit_main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Read More
posted @ 2016-03-30 20:57
findumars
Views(2957)
Comments(0)
Diggs(0)
php server [php] view plain copy <?php require_once('src/Hprose.php'); function hello($name) { echo "Hello $name!"; return "Hello $name!"; } function Read More
posted @ 2016-03-30 20:53
findumars
Views(3345)
Comments(0)
Diggs(0)
1、 [delphi] view plain copy // 根据字符串，拆分字符串，相当于vb中的split函数 function SplitString(const Source, ch: string): TStringList; var temp: String; i: Integer; b Read More
posted @ 2016-03-30 20:48
findumars
Views(306)
Comments(0)
Diggs(0)
DateTimeToFileDate 函数 将DELPHI的日期格式转换为DOS的日期格式 DateTimeToStr 函数 将日期时间格式转换为字符串 DateTimeToString 函数 将日期时间格式转换为字符串 DateToStr 函数 将日期格式转换为字符串 FileDateToDate Read More
posted @ 2016-03-30 20:45
findumars
Views(3446)
Comments(0)
Diggs(0)
[delphi] view plain copy procedure TForm5.Button4Click(Sender: TObject); var O, item: ISuperObject; Strm: TStringStream; result: string; ctx: TSuperRt Read More
posted @ 2016-03-30 20:41
findumars
Views(1057)
Comments(0)
Diggs(0)
[delphi] view plain copy //K8执行DOS并返回结果 function RunDosCommand(Command: string): string; var hReadPipe: THandle; hWritePipe: THandle; SI: TStartUpInfo Read More
posted @ 2016-03-30 20:34
findumars
Views(2297)
Comments(0)
Diggs(0)
[delphi] view plain copy unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Read More
posted @ 2016-03-30 20:33
findumars
Views(1234)
Comments(0)
Diggs(0)
概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 @:取址运算符; var int:integer; p:^integer; begin new(P); int:=24; p:=@int; dispose(P); en Read More
posted @ 2016-03-30 20:28
findumars
Views(1769)
Comments(0)
Diggs(0)
[delphi] view plain copy procedure TForm_main.Button5Click(Sender: TObject); var myStream:TFileStream; myFileSize:Integer; myTextFile:TextFile; text,d Read More
posted @ 2016-03-30 20:25
findumars
Views(4033)
Comments(0)
Diggs(0)
在windows系统中，可以通过Regsvr32来实现注册ocx或者dl， 编程时，调用Regsvr32来注册，却不能正常执行。尤其是在Win7系统中，需要管理员身份才能运行。 使用下面的代码则能正常注册。 [delphi] view plain copy //注册 function Registe Read More
posted @ 2016-03-30 20:24
findumars
Views(1760)
Comments(0)
Diggs(0)
delphi 控件查询：http://www.torry.net/ http://www.jrsoftware.orgTb97 最有名的工具条(ToolBar)控件库,仿Office97，如TDoCk97,TToolBar97,TEdit97,TToolWindow97等.http://www.fl Read More
posted @ 2016-03-30 20:20
findumars
Views(25876)
Comments(1)
Diggs(1)
相关资料：http://bbs.csdn.net/topics/320071356# 操作方法： 在Source\VCL目录下应该有这样两个文件sample.manifest和WindowsXP.rc,可以通过如下方法处理: 1.sample.manifest处理①打开“sample.manifes Read More
posted @ 2016-03-30 19:42
findumars
Views(954)
Comments(0)
Diggs(0)
http://blog.sina.com.cn/s/blog_a6fb6cc90101i8it.html http://blog.sina.com.cn/s/blog_a6fb6cc90101hhse.html http://blog.sina.com.cn/s/blog_a6fb6cc90101d Read More
posted @ 2016-03-30 18:22
findumars
Views(334)
Comments(0)
Diggs(0)
void MyProgressBar::paint(QPainter* painter, const QStyleOptionViewItem& option, const QModelIndex& index) const { // -------------------- 取数据，测试数据 --------------------------------- ... Read More
posted @ 2016-03-30 00:11
findumars
Views(1222)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号