delphi死循环的控制权转让

2016年07月27日 47 阅读

delphi死循环的控制权转让2008-02-02有时我们会执行一些如While、For等循环语句，这些语句如果计算时间非常长，那么就会占用了CPU的处理权，无法再运行其他程序，照成死循环。所以必须让CPU避开循环，转让控制权，让操作可以同时处理多个事件，只需要在循环前执行一下以下语句即可：Application.ProcessMessages;...

回车代替Tab移动输入焦点

2016年07月27日 48 阅读

回车代替Tab移动输入焦点2008-02-02很多时候，我们都用Tab键来移动输入焦点，但是有些情况下，比如输入用户名后还需要输入密码，由于习惯性，你有可能在输入用户名后就按了一下回车，希望到密码框里继续输入，可是却按了“确定”键，报告密码错误，所以使用以下代码来让“回车”键代替“TAB”键下移一个控件：在窗体上放两个控件，Edit1和Edit2，再加入下列代码拦截击键：Procedu...

DELPHI的命名规则须注意

2016年07月27日 50 阅读

DELPHI的命名规则须注意2008-02-02初学DELPHI的人，对自己随手编的程序，函数，过程所起的名字不会太在意。但可要注意，你随意起的名字，有时会给你带来意想不到的麻烦。举例如下：新建一个FORM，加上一个EDIT1，清除其内容，再加上一个LABEL1和BUTTON1。BUTTON1按钮代码为 procedure TForm1.Button1Click（Sender: TObject）; begin label1.caption:=in...

delphi实现在Word插入字符

2016年07月27日 47 阅读

delphi实现在Word插入字符2008-02-02现在的文档很多都是用Word软件来编辑的，但如果你想在程序中把某些字符插入到Word文档中，那么下面的程序帮你忙：procedure TForm1.Button1Click（Sender: Tobject）;var MSWord: Variant;beginMSWord := CreateOLEObject（Word.Application）;//连接WordMSWord.Documents.Open（...

delphi实现播放背景音乐

2016年07月27日 47 阅读

delphi实现播放背景音乐2008-02-02如果要做一些比较艺术化的程序时，你会想到插入背景音乐，这时你是否使用了TMediaPlayer控件来播放音乐呢？其实我们大可放弃该方法，直接使用WINDOWS为 我们提供的API函数来播放音乐，方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:1.mid为播放的文件，NN为自定义名称标志procedure TForm1.Button1Click（Sender: TObject）;...

delphi编程实现改变操作系统日期

2016年07月27日 46 阅读

delphi编程实现改变操作系统日期2008-02-02日期函数Now（）、Date（）、Time（）大家都用得多了，这些函数是读取系统日期时间的。可是遇到需要改变操作系统的时间时，他们就一点办法也没有，而Delphi4又没有提供相关的函数，所以只好求助于API函数SetSystemTime（SystemTime）;无奈他要求的变量SystemTime太古怪了，属于TSystemTime，需要经过转换才可以得到，所以举例如下：1、定义变量var Syste...

Delphi实现TMemo的真正插入字符

2016年07月27日 49 阅读

Delphi实现TMemo的真正插入字符2008-02-02我们发现在TMemo、TRichEdit等编辑控件中，有Add、Insert等插入字符的命令，可是这些命令却没能真正做到插入字符作用，他们只是把你的字符当做一行在指定位置插入。为了真正实现插入功能，还需要执行多一些指令才能真正做到，下面是一个例子：ROEX2.Lines.Insert（2,abcdefg）;ROEX2.SelLength:=-2;ROEX2.SelText :=;...

delphi实现动态创建别名

2016年07月27日 54 阅读

delphi实现动态创建别名2008-02-02对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。AddAlias用于为Paradox、dBase或文本创建别名，不需要连接参数，只需指定一...

delphi编程统计中英文字的个数

2016年07月27日 70 阅读

delphi编程统计中英文字的个数2008-02-02中国使用的是汉字，而又夹杂这些英文，这样我们在数字数时就麻烦了，电脑是按字节来计算，一个汉字算两个字，而中国人的习惯是一个汉字就是一个字，所以通过电脑来计算必须解决下列问题：利用文本控件TMemo来存放文章，分别对中、英文的字符数进行统计，我们可以通过把字符转换为ASCII码数值来进行判断，Ord（）函数就可以把字符转换为对应的数值，值33-126为键盘可使用字符，值127以上的为未知字符，即为汉字。p...

delphi中改变图片效果

2016年07月27日 49 阅读

delphi中改变图片效果2008-02-02想不想另图片有另一番效果，使用下列语句实现吧，增加两个TImage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果：procedure TForm1.Button1Click（Sender: TObject）;beginImage2.Canvas.Brush.Style := bsCross;Image2.Canvas.CopyMode := c...

delphi实现小写金额转换

2016年07月27日 47 阅读

delphi实现小写金额转换2008-02-02财务中总少不了大写的金额表示方式，如下为一个简单的小写金额转换为大写的函数，其思路简单（可以说烂吧，居然利用了位置来转换），但是它却几乎可以无限制的转换，只要你能读得出来和写得进去：function Tform1.SmallTOBig（small:real）:string;var SmallMonth,BigMonth:string;wei1,qianwei1:string[2];wei,qianwei,di...

delphi调用控制面板项目大全

2016年07月27日 48 阅读

delphi调用控制面板项目大全2008-02-02需要在程序运行过程中启动控制面板中的各个设置功能吗，使用如下方法吧：var x:cardinal;begin{启动控制面板}x:=winexec（rundll32.exe shell32.dll,Control_RunDLL,9）; {辅助选项 属性-键盘}x:=winexec（rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1,9）;{辅助选项 属...

delphi编程自制替换指定串函数

2016年07月27日 49 阅读

delphi编程自制替换指定串函数2008-02-02这是本人自己制作的替换字符串中子串的函数，他可以从字符串中找出指定子串，并替换为另一子串。function replacing（S,source,target:string）:string;var site,StrLen:integer;begin{source在S中出现的位置}site:=pos（source,s）; {source的长度}StrLen:=length（source）;{删除sourc...

delphi编程类似链接的效果

2016年07月27日 49 阅读

delphi编程类似链接的效果2008-02-02如果你想要有类似主页那样指向某字体，该字体就出现下划线，鼠标指针变为一支手指，按下后就打开浏览器或邮件编写器的功能，请按下列办法做（该方法只是在前面讲的实现超链接的方法上加入一些效果）：先在一个窗体中加入一个Label1，在OnMouseMove事件里加入下列代码procedure TForm1.Label1MouseMove（Sender: TObject;shift:Tshiftstate;x,y:in...

Delphi中实现Hint的分行提示

2016年07月27日 51 阅读

Delphi中实现Hint的分行提示2008-02-02在日常使用的控件中，大多数控件的Hint属性都是显示为横的，这样在遇到需要提示很长的文字时就显得不美观，所以有必要把长文字分成几行来显示。方法就是在字符串中间用“#13”，“#13”在ASCII码中是回车的代码，程序如下，当但在属性框是不能够这么干的，因为属性框会把“#13”当成字符来使用：beginLabel1.caption ...

Delphi编程技巧点滴

2016年07月27日 50 阅读

Delphi编程技巧点滴2008-02-021.如何检测Insert、Capslock、NumLock、ScrollLock状态键的状态Delphi可以调用Win API的Getkeyboardstate（）函数。常量 按键名称VK_INSERT znsert键VK_NUMLOCK Num Lock键VK_CAPITAL Caps Lock键VK_SCROLL Scroll Lock键键盘缓冲区每一位都有一位特定的格式，对于状态键来说，最低位是1时表示状态...

Delphi的程序制作要点

2016年07月27日 48 阅读

Delphi的程序制作要点2008-02-02一、为什么选择Delphi在开始任何一个项目之前，总会碰到选择开发工具的问题。各式各样的工具有其各自的特点，各有利弊。选择Delphi，各人有各人的理由，有的人是听说好，跑来看看；有的人是被迫的。什么时候人们会被迫使用Delphi呢？ 对于我来说，1）我不想在一个小Project中使用ODBC，我发现BDE效率很不错，于是很高兴。2）我很讨厌OCX, VBX，一大堆别人的东西拷入用户的机器，让我很没有成就感。3...

Delphi编制趣味动画鼠标

2016年07月27日 51 阅读

Delphi编制趣味动画鼠标2008-02-02我们经常可以看到许多生动有趣的动画鼠标，其实利用Delphi强大的功能，我们完全可以随心所欲地制作有个人特色的鼠标。我制作了一个名为face的动画鼠标，在常态时，它是一张圆圆的脸，脸上有一双咕噜噜乱转的大睛眼。当按下左（右）键时，脸的左（右）眼就眨一下。如果持续按住，则左（右）眼眨个不停。下面我以这个动画鼠标为例，简述如何制作动画鼠标。首先，在Delphi的主菜单工具下选图像编辑器，编辑一个名为face.re...

用Delphi实现超级链接

2016年07月27日 48 阅读

用Delphi实现超级链接2008-02-02在许多程序的“关于”对话框中，我们常可以看到“超级链接”式的标签，只须轻轻一点，就能立即启动电子邮件程序给作者写信,或者启动浏览器观看某主页，或者远程登录，或者自动链入新闻组……如果你苦于找不到实现这些功能的Delphi控件，又无法在帮助文件中找到相关主题，那不妨参照下文，亲手一试！别看上述的“超级链接”功能繁多...

Delphi中更改StatusBar为黑底绿字

2016年07月27日 49 阅读

Delphi中更改StatusBar为黑底绿字2008-02-02首先, 启动 Statusbars.Panels 的属性编辑器（从 Object Inspector 中, 点一下 Panels 属性右边的...小按钮）, 确定各 Panels 的 Sytle 是否为:OwnerDraw （若为 Text, 则 OnDrawPanel 事件不会有作用的）.其次procedure TForm1.StatusBar1DrawPanel（StatusBar: T...