实现“这是什么？”的功能 常 常看到有些窗口上有个？号，也就“这是什么？”的功能，，如果自已编程实现则就不一样了。比如：点击"帮助"按钮。。刚出现这是什么？”的功能。。这就要用到API了，其实 通过 PostMessage ，可以实现。 PostMessage(Handle, WM_SYSCOMMAND...

2008-04-10 02:58:19

升级到 Delphi 6 原著： Borland Corporation 翻译： Musicwind 日期： 2001-07-11 声明： 以下文章的内容取自 Delphi 6 附带的帮助文件。 版权所有 Borland Corporation 。 翻译此稿事先没有得到 Borland 的批准，鲁莽之处，恳请 Borland 多多原谅。 总则 打开 Delphi...

2008-04-10 02:58:18

一． 潜在的二进制 Form 文件的不兼容 过去，新版本 Delphi 创建的二进制 Form 文件（或称 DFM 文件）可以被老版本的 Delphi 读?５?窍衷诓恍辛恕Ｄ承┒???Form 文件可能不能被老版本正确的读取，其原因是 Delphi 6 内部的字符串的流化和原先不同。过去，流化操作...

2008-04-10 02:58:17

升级到 Delphi 6 原著： Borland Corporation 翻译： Musicwind 日期： 2001-07-11 声明： 以下文章的内容取自 Delphi 6 附带的帮助文件。 版权所有 Borland Corporation 。 翻译此稿事先没有得到 Borland 的批准，鲁莽之处，希望 Borland 多多原谅。 总则 从 Delphi 6...

2008-04-10 02:58:17

(接第一篇) 将面向对象的思想贯穿始终，这个题目好象有些大了。我刚才在这里说的，提到的，其实只是在编码的时候，应当注意的一些小问题。所以 ’贯穿始终’这个用语，改为’牢记在心’可能更为贴切。 对于 Delphi某些特性的一点意见： 不知各位注意到没有，在 Delphi...

2008-04-10 02:58:17

如果我们的开发项目需要在小组模式下进行，那么协调和规范工作流程是非常重要的环节。工欲善其事，必先利其器，如果能够借助版本控制工具，必然会达到事半功倍的效果。 我最近因为需要在csdn上查找版本控制工具的介绍，但发现这方面的帖子很少，可能一个开发小组的领导...

2008-04-10 02:58:16

将远程控制应用于教学中，已成为目前计算机化教学的重要手段。一定有很多的网虫想了解这种网络教学方式的编程原理吧。在此我们就以一个简单的远程控制程序作为示例，说明这种网络编程的基本原理。本程序以Delphi编程为例。 其实该程序的工作机制很简单，受控方运行一个...

2008-04-10 02:58:15

procedure LoadTree(treeDB:TDBDataSet);//初始化树 procedure UpdateTree(curNode:TTreenode; nodeTxt:string; state:string);//更新树 function GetNodeLevel(sFormat,sCode:string):integer; //获 得节点层数 function GetNodeItem(sCode:string):integer;//获得ite...

2008-04-10 02:58:14

(*@\000000D01*) (*@/// procedure t_tcpip.close_socket(var socket:TSocket); *) procedure t_tcpip.close_socket(var socket:TSocket); begin if socketINVALID_SOCKET then begin Winsock.CloseSocket(socket); if assigned(f_tracer) then f_tracer(''''Closed...

2008-04-10 02:58:14

自创改编小控件，不是一个哟！！ 仔细看一下，你一定会喜欢的！ unit tcpip; (*@/// interface *) interface (*$x *) (*@/// uses *) uses sysutils, classes, controls, forms, winsock, (*$ifdef ver80 *) winprocs, wintypes, (*$else *) windows, (*$endif *) mess...

2008-04-10 02:58:13