Delphi实现毫秒级别的倒计时实例代码

2017年02月06日 78 阅读

本文以实例简述了Delphi实现毫秒级别倒计时的方法。一般来说可以获得系统的高性能频率计数器在一毫秒内的震动次数，如果时钟震动次数超过10毫秒的次数则刷新edit3的显示，显示从开始记数到记数实际经过的时间，具体实现代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls...

Delphi中对时间操作方法汇总

2017年02月06日 62 阅读

一般来说在delphi中用于描述时间的有几种数据结构，而对时间的操作，实质上就是对这些结构的操作。TDateTime类型：Delphi中最常用的表示日期时间的数据类型TDateTime类型，和普通的整形数一样，你可以给日期定义一个日期型变量以便在程序中进行操作。TdateTime类型实质上是一个Double型的数，在Delphi中是这样定义TdateTime类型： type TDateTime = type Double ,具体的算法是用Double数的整...

Delphi实现碰撞球体完整实例代码

2017年02月06日 53 阅读

本文以实例描述了用Delphi实现撞击球效果的方法，类似弹球效果。点击“开始”按钮，窗体中的一个绿色小球将不断地左右撞击运动，并且其大小不停地变化。点击“停止”按钮，小球停止运动。用鼠标拖动右下方的调节控件，可以调整小球运动的速度。这里我们主要是使用Timer 控件、Panel 控件、TrackBar 控件、SpinEdit 控件、Shape控件和Button 控件来实现。重点是Delphi 的Timer 控件。在运行程序时，该控件不可见，也不能直接对它进...

Delphi实现读取系统时间与日期完整实例

2017年02月06日 80 阅读

本文讲述了Delphi读取系统时间与日期的实现方法，首先设置各个控件用于显示时间、读取时间与设置时间。再添加如下代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm）Button1: TButton;Memo1: TMemo;Button2...

Delphi常用关键字用法详解

2017年02月06日 81 阅读

本文详细介绍了Delphi中常用的各个关键字名称及用法，供大家在编程过程中借鉴参考之用。详情如下：absolute：//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absoluteStr;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.beginStr := "abc";Edi...

Delphi实例演示Rect、Bounds生成TRect的区别

2017年02月06日 74 阅读

本文以实例演示Rect、Bounds生成TRect的区别，实例代码如下：unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class（TForm）Button1: TButton;RadioGroup1: TRadioGroup;pr...

Delphi之Pascal语言中的关键字及保留字汇总

2017年02月06日 58 阅读

本文汇总了Pascal语言中的关键字及保留字如下，供大家参考：absolute//指令（变量）abstract//指令（方法）and//运算符（布尔）array//类型as//运算符（RTTI）asm//语句assembler//向后兼容（汇编）at//语句（异常处理）automated//访问类别符（类）begin//块标记case//语句cdecl//函数调用协定class//类型const//声明或指令（参数）constructor//特殊方法con...

Delphi实现图片滚动切换的完整实例代码

2017年02月06日 83 阅读

本文以实例介绍了Delphi实现图片滚动切换的方法。该程序可以实现图像的滚动播出，并且通过本代码可控制窗口中的图像向上滚动，通过调节速度滚动条的值还可以调整滚动的速度；点击“停止”按钮，图像即停止滚动。完整的功能代码如下：unit Unit1;interfaceusesWindows, Classes, Graphics, Forms, Controls, Menus,Dialogs, StdCtrls, ExtCtrls, SysUtils, ComCt...

Delphi实现图像文本旋转特效完整实例代码

2017年02月06日 86 阅读

本文以实例讲述了Delphi实现图像文本旋转特效的解决方法，在本程序中利用的控件主要是Panel 控件、Image 控件、Edit 控件、Label 控件和Button 控件。本程序的关键是利用Delphi 的bmp_rotate（）函数来实现旋转图像的功能。并巧妙地调用相关Windows API 函数来实现对文本的旋转特效。完整的实例代码如下：unit Unit1;interfaceusesWindows, Messages, SysUtils, Cla...

Delphi实现限定软件使用时间的方法

2017年02月06日 71 阅读

我们经常看到很多网上下载的试用版软件，都有使用时间的限制，就其商业角度而言也是处于软件效益保护的一种措施，可以让用户免费试用一段时间，若满意就可以购买商业软件。本文所述实例代码功能就是如何为Delphi所编写的程序添加使用时间的限制功能，这里默认的时限为30天。主要代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Re...

Delphi实现获取磁盘空间大小的方法

2017年02月06日 66 阅读

本文所述Delphi实例用以获取指定的磁盘空间容量大小，检测磁盘大小，从combox中选择磁盘代号等功能。点击“检测驱动器”容量信息的按钮，就可以在下边显示出该磁盘的总空间大小以及要用容量的大小。读者可根据需求添加对应的Button与label控件。主要程序代码如下所示：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dial...

Delphi实现窗口文字淡入淡出渐变效果的方法

2017年02月06日 55 阅读

本文所述实例为Dlephi实现的窗口渐变文字效果，文字可以不停的变化，颜色由浅入深，由清淅变模糊，文字渐变的时间可在代码中自己调整。主要实现代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class（TForm）T...

Delphi实现木马自我拷贝方法

2017年02月06日 69 阅读

木马实现自我拷贝的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,继而退出旧程序.本例即以Delphi实现木马的自我拷贝。首先打开Delphi,新建一个工程,在窗口的Create事件中写入如下代码:procedure TForm1.FormCreate（Sender: TObject）;var myname: string;beginmyname := ExtractFilename（App...

Delphi实现木马文件传输代码实例

2017年02月06日 56 阅读

本文以实例形式讲述了Delphi下木马的文件传输方法的实现过程，具体步骤如下：服务器端代码:unit ServerFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls,WinSock;type TfrmMain = class（TForm）Panel1...

Delphi实现获取句柄并发送消息的方法

2017年02月06日 136 阅读

本文以实例形式详细说明了Delphi获取句柄并发送消息的方法，具体用法说明如下：查找另外一个窗口的句柄：handle := FindWindow（nil,PChar（"窗口的标题"））;//查到窗体句柄查找子窗体：childHandle := FindWindowEx（handle,0,"子窗体类","子窗体标题"）; 另外有个枚举子窗体的API，EnumChildWindows（主创体句柄,@回调函数,用户参数）;用这个函数需要自己写一个回调的函数，比如...

Delphi编程常用快捷键大全

2017年02月06日 89 阅读

快捷键对于提高编程速度有着很重要的影响，本文汇总整理了Delphi常用的快捷键，供大家参考之用：Ctrl+PageUp将光标移至本屏的第一行，屏幕不滚动。Ctrl+PageDown将光标移至本屏的最后一行，屏幕不滚动。Ctrl+↓向下滚动屏幕，光标跟随滚动不出本屏。Ctrl+↑向上滚动屏幕，光标跟随滚动不出本屏。Ctrl+Shift+NUM在光标行设置最多九个临时标志号，对临时切换非常有用。行的左边将出现一本书，封面有NUM，再按一次取消设置。Ctrl+N...

Delphi创建开机启动项的方法示例

2017年02月06日 54 阅读

Delphi可以通过创建开机启动项键值的方法，将程序添加到开机启动项中。通过本实例代码就可以为您的程序添加到快速启动中，随着Windows一起启动，开机即运行的程序。该实例代码简单，主要是通过添加注册表键值来实现。具体的功能代码如下所示：unit dy97;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,regi...

Delphi实现检测并枚举系统安装的打印机的方法

2017年02月06日 61 阅读

本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机，枚举出这些打印机，主要功能代码非常简单，便于大家阅读与理解。主要功能代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Printers, XPMan;type TForm1 = c...

Delphi2007编译的程序在Win7下图标模糊的解决办法

2017年02月06日 61 阅读

使用Delphi2007编译GUI程序的时候会发现在Win7的状态栏中显示的程序图标非常模糊，如果原始的图标清晰度怎么样。造成这样结果的原因是因为Delphi2007生成的icon图标只符合XP等系统的要求，没有对Win7进行优化处理。网上有很多处理的方式，后来找到一个最简单有效的方法，就是只设置项目的图标而不要设置Form窗口的图标。参考资料：Blurred Delphi Form Icon in Windows 7 TaskbarDelphi form...

Delphi远程连接Mysql的实现方法

2017年02月06日 59 阅读

本文实例讲述了Delphi远程连接Mysql的实现方法，是Delphi数据库程序设计中非常重要的技巧。分享给大家供大家参考之用。具体方法如下：Delphi 通过ADOConnection链接远程Mysql数据库，要在安装软件的电脑上安装Mysql 驱动，没有的在百度下载，搜索mysql ODBC驱动就出来了主要的链接代码如下：var srstring:string;srstring:="DRIVER={MySQL ODBC 3.51 Driver};SER...