2006年3月31日
摘要：
所谓动态菜单是指菜单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下： 1．首先，确定动态菜单的数据来源，即要确定动态菜单标题是来自Windows的系统注册表，还是来自一个数据库，或者是来自一个子目录，主要由程序的功能而定。这里假设主窗口名为MainForm，上面已有主菜单，其动态菜单的数据源是一个String（字符串）类型的变量，名称为SubMenuItemS... 阅读全文
摘要：
Windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口，窗口过程将处理这个消息，但只有当消息被处理之后，SendMessage才能返回到调用程序。下面结合两个Delphi程序，讨论如何利用SendMessage向控件发送消息和控件对这种消息的响应。 用SendMess... 阅读全文
摘要：
delphi问题集锦（27问） 1、怎么样在delphi中调动其它*.exe文件？ 例如：winexec(''d:\郑洽\Project1.exe'',sw_show); ============================================================================== 2、如何让工程运行时主窗体就是最大化的？ 答：设置主窗体的Window... 阅读全文
摘要：
名称 类型 说明 A Abort 函数 引起放弃的意外处理 Abs 函数 绝对值函数 AddExitProc 函数 将一过程添加到运行时库的结束过程表中 Addr 函数 返回指定对象的地址 AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 Align 属性 使控件位于窗口某部分 Alignment 属性 控件标签的文字位置 AllocMem 函数 在堆栈上分配给定... 阅读全文
摘要：
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel,y... 阅读全文
摘要：
isParadox:=(pos('.db',tempTableName)>0) and (tempTableName[length(tempTableName)]='b'); isDbase:=pos('.dbf',tempTableName)>0; end else begin isParadox:=TableType=ttParadox; isDb... 阅读全文
摘要：
{▎ 大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎} {▎ 觉得还一般 请关注 http://www.cdsunco.com/down.htm 还有更多的好东西 ▎} {▎ 系统公用函数及过程 ▎} {▎ 软件名称： 开发包基础库 ▎} {▎ 单元名称： ... 阅读全文
摘要：
listbox从文件中读取列表的操作ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'aaa.txt');ListBox1.Items.Add(Edit1.Text); //添加了一个项目ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'a... 阅读全文