在上节的内容上作些扩展，现在开始生成真正的3D对象，而不是象前两节中那样3D世界中的2D对象。我们给三角形增加一个左侧面，一个右侧面，一个后侧面来生成一个金字塔(四棱锥)。给正方形增加左、右、上、下及背面生成一个立方体。 我们混合金字塔上的颜色，创建一个平滑...

2008-04-09 04:27:07

打造 Delphi中字符串的replace函数 编者注：其实Delphi的StringReplace函数就是专为满足这个需要而设的。但我们也将这篇文章发表出来——至少作者提供了一种替代方案，探索精神应该鼓励！ 这是小弟在这里的第一篇文章，加之自己水平也不是很高，就来讨论一个基础但是很...

2008-04-09 04:27:06

我们知道，可以设定，当在一定的时间内没有对计算机进行任何操作时，启动屏幕保护程序。我们还可以规划计划任务，让电脑在某个设定的时间起动我们想进行的工作。这两个功能都是不错的构思，所以微软把它们一直保留了下来。不过，我们可能有更好的想法，希望能在电脑闲...

2008-04-09 04:27:05

在 Delphi 中用程序实现自定义窗体的创建和显示顺序（1） 摘要： 本文介绍了一种简单而实用的方法用来动态创建和显示窗体，在 Project.dpr 中编写代码实现窗体的动态选择创建，同时对 Delphi 的窗体创建，应用程序的创建，运行和结束的机制作了深入的探讨。 关键字： D...

2008-04-09 04:27:03

用Ｄ elphi创建COM 应用服务器(三) 前面讲了建立 com 组件的基本过程，但是还有许多的问题等待着大家去摸索，去发现。在这里我只实现数据库的基本操作，比如：插入，删除，更新,简单查询等等。但愿能起个引导如何实做COM 服务器的作用。基本理论知识这方面的资料也有很...

2008-04-09 04:27:03

这其实是个很老的话题在这里写。实在有点没意义。不过还是写写。因为 ShellExecute总还是在经常用到。而且平率比较高。但我不打算重点讲shell 的参数。因为我打算做个面向对象封装。避开不必要参数方面下次调用。 和其它界面API的参数差不多句柄。要实行的操作。程序名...

2008-04-09 04:27:02

New Page 1 1 ．一般简单的三层结构设计方式： left:0;text-align:left;margin-left:27pt;margin-top:7.8pt;width:5in;height:273pt; z-index:1'''' coordorigin="2340,1908" coordsize="7200,5460"> Remote Data Module 服务器 数据库 Query 组件 DataSetProvider 组...

2008-04-09 04:27:02

防止用DeDe软件反编译delphi程序 这里有一篇防止用DeDe软件反编译delphi程序～ 用『』里的是我的注释，其余的是原创作～ Program Project1; Uses Forms, windows, sysutils, Unit1 In ''''Unit1.pas'''' {Form1}, Unit2 In ''''Unit2.pas'''' {Form2}; Function Regist...

2008-04-09 04:27:01

获得Memo、RichEdit的光标位置： procedure TForm1.Button1Click(Sender: TObject); var Row, Col : integer; begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := CustEdit.SelStart - SendMessage(Memo1.Handle, EM_LINEINDEX, -1,...

2008-04-09 04:27:00

SHChangeIconDialog(hwnd,filename,0,index); function SHChangeIconDialog;external ''''shell32.dll'''' index 62; function SHChangeIconDialog(h:hwnd;filename:pchar; Reserved:integer;var index:integer):integer;stdcall; { procedure TForm1.Button1Click(Sen...

2008-04-09 04:26:59