myamanda

摘要： 一．基本的方法如下：　　1．从Tthread类派生一个新类。(创建TSortThread类)　　2．定义新类的Create方法。　　3．定义新类的Execute方法，并在Execute方法中插入线程运行时执行的代码。　　4．引用类方法创建实例。　　二．例子的详细代码及说明：　　首先，新建一个单元，保存为mysort.pas.在此单元中，我们创建了一个TSortThread类，它从TThread类中... 阅读全文

摘要： 随着网络技术的飞速发展，计算机网络在各高等院校教学中的使用已非常普遍，但是，我们发现一个问题，在教学的过程中，由于老师是面对着学生，而背对着 学生计算机的显示器，不能随时查看学生计算机显示器上的内容，所以，有的学生在教学中偷玩游戏，影响了教学的质量和效果，因此，设计一款网络监控软件，监 控学生计算机，十分必要。为了实现这一目的，此系统应具有以下功能：　　（1）教师用机可以循环显示学生计算机的显示器... 阅读全文

摘要： 4月15日，CodeGear的领袖人物David I拜访了盛大，并对Delphi的未来（下个版本）做了预告及展望，同时，也解答了我们压在心头多时的问题。我在此把交流的记录发上来，让大家一起激动一下吧首先是Delphi新版本的一些特性与展望：1. 多核的支持 / 异步方法 (VC中早就拥有的OpenMP，在Delphi中也很快就有了)2. 内置的Direct 2D模块及开发库3. 将会拥有一个能同时... 阅读全文

摘要： 需要在鼠标离开的时候得到通知吗？看看以下的代码，也许会有帮助。你可以把TImage换成其它控件。关键在于对CMMouseLeave消息的处理。unit Main;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms,ExtCtrls;typeTMyImage = class(TImage)pr... 阅读全文

摘要： Delphi一般提供两种设置图标的方法，一个是在Project Options 中指定应用程序的图标，另一个是在Object Inspector 的properties页中提供Icon特性。如果想设计出像Windows开始选单那样美丽的弹出选单，就要自己编写代码了。 　　我们知道大多数Windows应用程序本身带有图标，只要将程序本身所带的图标取出，调整图标的大小加入到弹出选单中，一个美丽的选... 阅读全文

摘要： ---- 建立一个空的Unit，把以下代码Copy进去，再把它添加到Delphi的控件库里，这样MovePanel控件就做好了。 unit MovePanel;interfaceusesWindows, Classes, Controls,ExtCtrls;typeTMovePanel = class(TPanel) //这个控件是继承Tpanel类的privatePrePoint:TPoin... 阅读全文

摘要： 首先，建立一个新的Project。然后，在form1中添加一个Panel控件，它的Align属性为alBottom，Visible属性为true，并记下top属性的值，这里为307。在form1中添加一个Image控件，它的Align属性为alClient。在Panel控件中添加三个Button控件。Button1的Caption属性为“开启自动隐藏”，Enabled属性为... 阅读全文

摘要： 一、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... 阅读全文