随笔分类 - ★ Delphi
摘要：我们看到有些安装程序的背景色自上由下由蓝变黑，我们可以通过下列程序实现双击窗体的OnPaint事件，然后编写如下程序：(delphi7下编译通过)
阅读全文
摘要：最近编了一个小软件，需要将Stringgrid中的内容导出到Excel中。由于使用的是Delphi2010 + Office2010，中间有点小曲折，现把代码贴出来，供参考。代码
阅读全文
摘要：昨天去火车站买票，看到火车站上的跑马灯文字提示很好玩，就自己编个小程序娱乐了一下~~很简单的代码。。。
阅读全文
摘要：在 Tiburon 中，我可以在诸如 TMemo, TListBox, TComboBox （和其它包含字符的 lists）等控件中使用 Unicode 字符。那如何从一个文件中加载、保存 strings 呢？我需要在已经用 Delphi 和 C++ Builder 写好的程序中做什么样的更改才能为这些组件处理 Unicode 字符呢？下面就是答案：在 LoadFromFile 和 SaveToFile 方法中，出现了一个新的、可选的参数。可选参数名字是 "Encoding"，其类型是 "TEncoding"。TEncoding (该类型声明在 SysU
阅读全文
摘要：本人在学习使用Delphi中，遇到了一些关于菜单的编程问题，其中一些比较由代表性或比较实用，先把它从笔记中整理出来，与大家分享，请多多指教。 -- 1 将菜单项移到菜单栏的最右边 在一些应用程序中，常把一些特殊的菜单项放在菜单栏的最右边（如WPS2000 中的"定制界面"菜单，一些应用程序的帮助菜单），这些菜单项放在菜单栏（menu bar）的右边比较好。Delphi中虽然没有直接提供（呵呵，...
阅读全文
摘要：直接上代码：[代码]
阅读全文
摘要：[代码]
阅读全文
摘要：StringOfChar 是反复 “字符” 成 “字符串” 的函数;DupeString 是反复 “字符串” 成 “新字符串” 的函数;StringOfChar 来自 System 单元, 可以直接使用;DupeString 来自 StrUtils 单元, 使用时需要 uses StrUtils;如果仅...
阅读全文
摘要：{☆推荐☆：返利网，你网上购物，我返给您现金，实惠！省钱新门道}
阅读全文
摘要：在工作中，经常使用到IEEE754格式的数据。IEEE754格式的数据占四个字节，好像Motorola格式和Intel格式的还不一样。由于工作中很少和他打交道（使用的软件内部已经处理），就没太在意。今天在编程时发现需要把四个BYTE类型的数据转换成IEEE754标准的数据，就编了一个函数处理一下。[代码]{☆推荐☆：返利网，你网上购物，我返给您现金，实惠！省钱新门道}
阅读全文
摘要：有一个E-mail地址：username@***.com，编一个程序，读出username.[代码]{☆推荐☆：返利网，网上购物拿返利，省钱新门道}
阅读全文
摘要：标题有点长，呵呵~利用StringReplace函数可以删除字符串中指定的字符（字符串），下面是一个小例子：删除字符串中的'bad'字符串:[代码]函数的描述：From SysUtils.pas function StringReplace(const S: string; const OldPattern: string; const NewPattern: string; Flags:...
阅读全文
摘要：在组件的OnKeyDown、OnKeyUp 、OnMouseDown和OnMouseUp等事件的处理过程中，有一个TShiftState类型的变量Shift ，TShiftState类型定义如下： [代码]所以根据Shift的值就可以判断当键盘上的键按下时Shift 、Alt和Ctrl键的状态，或者按下鼠标左键、鼠标右键、鼠标中键、任意按键双击时的状态。下面的例程说明了如何检测Shift、Alt和...
阅读全文
摘要：[代码] 注意： 只有从TWinControl继承的控件，才能用此方法。
阅读全文
摘要：[代码]关于indexof:Call IndexOf to obtain the position of the first occurrence of the string S, or of a string that differs from S only by case. IndexOf returns the 0-based index of the string. Thus, if S ...
阅读全文
摘要：说明： 程序中使用OLE来操作EXCEL。需要在uses中写上ComObj.使用属性来获取行数和列数： 使用代码1提供的代码获取的excel中的行数和列数，不包括开头的空行和空列。[代码]包含开头空行和空列的行数和列数： 如果想获得最大行数(列数)，需要在程序中去判断。判断方法： 1、先假设TemperMaxRows为最大行，然后去判断每一列的元素是否都为非空，如果有一列全部为空，则列数加1，最终得到实际的最大列数 2、根据计算到的实际最大列数，然后去判断每一行的元素是否都为非空，如果有一行全部为空，则行数加1，最终得到实际的最大行数。代码示例：[代码]后续文章： Delphi操作Ex
阅读全文
摘要：我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终 要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会 走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。 一、根据新的分辨率自动重画表单及控件 先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为...
阅读全文
摘要：河南金融管理学院 潘汉杰 ---- Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS 应用程序的过程中，虽然Delphi为每个可视化组件都提供了很多属性（Property）和事件（Event），但在实际应用中可能会碰到一些自己需要的特殊事件，这些特殊事件Delphi 又没有提供，这时我们就需要为应用程序添加这些特殊事件。当这些事件发生后，又能马上调用处理这些...
阅读全文
摘要：下面介绍一种方法可以决定系统内存的多少、使用状态等信息。更重要的是，应用程序可以利用这项技术来决定客户机的可用内存的大小，利用这些信息，应用程序可以动态地优化程序的性能。例如，如果有足够的内存可以利用双缓存优化位图的操作。利用Windows API函数GlobalMemoryStatus可以完成上述功能。GlobalMemoryStatus接收一个类型为TMemoryStatus的变参，通过这个参...
阅读全文
摘要：一、声明代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--1GetSystemInfo(2 varlpSystemInfo:TSystemInfo{}3);4//TSystemInfo是_SYSTEM_INFO结构的重定义:5_SYSTEM_INFO...
阅读全文