myamanda

摘要： 一、TWinIcon 重 要 属 性 ---- FileName： 要 从 中 提 取 图 标 的 文 件。 ----Total： （ 只 读 属 性）FileName 所 指 定 的 文 件 中 所 包 含 的 图 标 个 数。 ----IconIndex：（ 范 围：0 到Total －1） 该 属 性 指 明 当 前 所 显 示 的 图 标。 ----About： 显 示 版 本 ... 阅读全文

摘要： ---- 要创建类似Netscape风格的状态条，现有的Delphi控件是无能为力的了。为了让窗口状态条能包含非文本内容，我们需要对现有的TStatusBar控件加以改进。在TStatusBar控件的基础上，我们编写一个新的Delphi控件TStatusBarEx。大家知道，Delphi的TStatusBar控件是不能接受其它控件的，所以我们不可能将一个TImage、TButton等放在TSta... 阅读全文

摘要： // 指定输入游标的位置procedure SetCaret(RTF: TRichEdit; var Row, Col: word);vari, iStopLine, iSelStart: integer;beginif (RTF = nil) then Exit;if Row = 0 then Row := 1;if Col = 0 then Col := 1;// 到第 Row 列, C... 阅读全文

摘要： 1. 建立一个窗体2. 放一个ComboBox和Listbox3. 改变Component的Style为csOwnerDrawVariable和ListBox的Style为lbOwnerDrawVariable。4. 声明5个TBitmap的全局变量5. 覆盖Form的OnCreate.6. 覆盖ComboBox的OnDraw.7. 覆盖ComboBox的OnMeasureItem.8. 释... 阅读全文

摘要： 不知大家是否见过一种按钮，当它被按下的时侯，它所执行的功能(如向上或向下)就持续执行，当松开时，就停止，其实滚动棒两边的按钮就是这样的。下面我们来做个按钮元件，让它也有这样的功能。在我们做元件之前，让我们了解一下它的原理，要想实现这个功能，我们可以做一个定时器，把触发一次的代码写在定时器的触发代码里面，其实我们要实现的功能很简单，就是让一个按钮按下时，EDIT1里面的数字就一直加一，当松开时就停止... 阅读全文

摘要： 我们用了两个Listbox构件，Listbox1按一般情况显示，Listbox2显示的每一项都可以有自己的字体、大小、颜色。 ---- 首先把Listbox2的style属性改为lbOwnerDrawVariable。然后分别编写它的OnDrawItem事件和OnDrawItem事件。下面就是Listbox2 的OnDrawItem事件和OnDrawItem事件的代码： procedure ... 阅读全文

摘要： Delphi为每个可视构件（而非快速按钮专属）都提供了Hint及ShowHint特性，其中Hint属性指定文本提示盒中的文本， 而ShowHint属性则决定鼠标指向构件时是否显示文本提示盒，当ShowHint值为True时，显示文本提示盒。用户可在对象监视器（ObjectInspector）的属性栏中设置或在程序中修改Hint 及ShowHint属性。除此之外，Delphi还在类TApplica... 阅读全文

摘要： ---- 一． 方案 ---- 自做一个父类为TEdit的控件,应该有一个Text属性，能自由地输入要动态显示的内容; 并且有一个MoveShow方法，使的Text的内容能动态的显示。在主程序中创建一个线程，启动线程时，调用该控件的MoveShow方法。 ---- 二． 制作控件 ---- 启动New Component,选Tedit为父类，建立L_Tedit1类，并创建L_edit.p... 阅读全文

摘要： TApplication类是用于描述Delphi编制的应用程序的一个类。通过对这个类的灵活应用可以编制许多有特点的程序。下面我 们就举几个这方面的例子。 ----1检测当前Windows程序是否被激活： ----Tapplication类有一个属性——Active，这个属性就可以描述当前运行的程序是否被激活，成为Windows的焦点。检测的代码如下： IfApplic... 阅读全文