所谓动态菜单 是指菜单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下： 1．首先，确定动态菜单的数据来源，即要确定动态菜单标题是来自Windows的系统注册表 ，还是来自一个数据库，或者是来自一个子目录，主要由程序的功能而定。这里假...

2008-04-09 04:18:44

Delphi5是Borland公司开发的全新的可视化集成开发环境，它使用语法严密的Pascal语言，并封装了Windows 中的构件，形成了自己的一套控件库体系-VCL(Visual Component Library)。VCL控件体系具有很强的扩展性，为开发者设计特殊视觉效果的控件提供了技术支持 。 本文就De...

2008-04-09 04:18:34

看了很多杂志上有很多关于编程 的文章，作者似乎都只热衷于给出长长的源代码 ，然后稍加一点的注释。就我自己读这些文章的感受就是没有实质的东西，读者很难感受到作者的编程思路，有时候兴趣好就按源程序输一遍，而往往结果都会这儿出错 那儿不行，从而就这样失去了兴...

2008-04-09 04:18:30

在个人电脑上没有声卡、操作系统为16位DOS 的时代，用PC SPEAKER（主板上的喇叭）发音曾经是唯一的选择。现在，时光已经进入32位的WINDOWS时代，几乎每台电脑上都装有声卡并且输出的声音也几近完美，人们渐渐将PC SPEAKER遗忘……。不过，当我们为了节省能源或不需要操...

2008-04-09 04:18:27

Delphi 具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发工具 技术的先驱者。但是在对串口通信 的控制上Delphi的帮助文档和其他书籍中很少提及，这恰恰又是在开发应用系统时会经常遇到的问题。用过VB的程序员 都知道 VB的MSComm通信控件 具有...

2008-04-09 04:18:20

1．在程序中实现用默认的Web浏览器打开URL 以及发送电子邮件 uses shellapi; …. Procedure TForm1.Label1Click(Sender:Tobject); begin shellexecute (handle,"open ","http://www.swissdelphicenter.ch ", nil,nil,sw _show); end; procedure TForm1.Button1Click(Se...

2008-04-09 04:18:19

1.NT 还是 Windows 98?取得当前操作平台 Function GetOSInfo : String; begin Result := ""; case Win32Platform of VER _PLATFORM_WIN32_WINDOWS : Result := "Windows 95/98"; VER_PLATFORM_WIN32_NT: Result := "Windows NT "; else Result := "Windows32"; end; en...

2008-04-09 04:18:17

Published declarations } end; procedure Register ; implementation procedure Register ; begin RegisterComponents("Additional", [TDBPanel]); end; { 为第I字段 增加提示信息的方法 } procedure TDBPanel.AddHits(ItemIndex: Integer; Hits: array of string); v...

2008-04-09 04:18:15

?Delphi功能强大，常被选择用来开发数据库管理软件的首选工具。在开发数据库管理软件时，经常涉及到报表的制作与输出。而Excel又特别擅长于报表和数据处理 ，且Excel能为Delphi 或其他应用程序通过OLE所控制，因此，我们可以通过OLE向Excel传数据，作为数据库管理软件...

2008-04-09 04:18:16

OpenGL 是OpenGraphicsLib的缩写，是一套三维图形处理库，也是该领域的工业标准。 计算机三维图形是指将用数据描述的三维空间通过计算转换成二维图像并显示或打印出来的技术。 OpenGL就是支持这种转换的程序库，它源于SGI公司为其图形工作站开发的IRIS GL，在跨平台移...

2008-04-09 04:18:11