delphi实现播放背景音乐

2017年02月06日 90 阅读

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

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

2017年02月06日 92 阅读

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

Delphi实现TMemo的真正插入字符

2017年02月06日 73 阅读

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

delphi实现动态创建别名

2017年02月06日 76 阅读

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

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

2017年02月06日 78 阅读

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

delphi中改变图片效果

2017年02月06日 76 阅读

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

delphi实现小写金额转换

2017年02月06日 80 阅读

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

delphi调用控制面板项目大全

2017年02月06日 73 阅读

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编程自制替换指定串函数

2017年02月06日 69 阅读

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编程类似链接的效果

2017年02月06日 72 阅读

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

Delphi中实现Hint的分行提示

2017年02月06日 81 阅读

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

Delphi编程技巧点滴

2017年02月06日 85 阅读

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的程序制作要点

2017年02月06日 65 阅读

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

Delphi编制趣味动画鼠标

2017年02月06日 73 阅读

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

用Delphi实现超级链接

2017年02月06日 87 阅读

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

Delphi中更改StatusBar为黑底绿字

2017年02月06日 68 阅读

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

delphi表格上所有元件载入后的事件

2017年02月06日 75 阅读

delphi表格上所有元件载入后的事件2008-02-02Loaded 方法是在载入完成後接着被呼叫的。procedure TMyClass.Loaded;begininherited Loaded; // 将ComponentState中的 csLoading 状态清除// 在这里撰写你想要执行的动作end;...

Delphi存取图像完整解决方案

2017年02月06日 70 阅读

Delphi存取图像完整解决方案2008-02-02李明亮 罗明莉对于涉及图像数据的数据库应用程序，图像数据的存取技术是一个关键。由于缺少技术文档及DEMO例程演示，为此笔者在网上搜索了相关资料，有的根本不能用，有的过于繁杂，有的应用范围太窄（如只能适用于BMP图像），有的写得过于简单理解起来十分困难。。。而且在网上这也是大家比较关心的一个问题。笔者对这个问题进行了反复实作和探索，下边笔者将通过一个完整的简单例子来说明如何保存和显示SQL数据库中的图像数据...

用Delphi轻松实现背景播放

2017年02月06日 78 阅读

用Delphi轻松实现背景播放2008-02-02TMediaPlay中有一个Display属性，它是TWinControl类型，TWinControl是第一个拥有窗口句柄（Handle）的VCL类，TMediaPlay就是利用这个Handle所Handle的窗口区域播放。如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，...

Delphi下的COM编程技术简介

2017年02月06日 90 阅读

Delphi下的COM编程技术简介2008-02-02cindy组件对象模型（Component Object Model，以下简称COM）是组件对象之间相互接口的规范，凡是遵循COM接口规范的对象彼此之间能相互通信和交互，即使这些对象是由不同的厂商、用不同的语言、在不同的Windows版本甚至不同的机器上编写和建立的。Delphi支持COM接口规范，Object Pascal语言增加了对象接口的方法。用Delphi创建的COM对象还可以工作在MTS（Mi...