知识大全 Delphi的8个技巧

Posted 2022-07-14 文件

篇首语：用行动祈祷比用言语更能够使上帝了解。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi的8个技巧相关的知识，希望对你有一定的参考价值。

Delphi的8个技巧 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 delphi怎样调用外部EXE文件？

　　uses WinProcs; begin WinExec( );

　　end 和调用Pascal库函数没什么两样

　　 Delphi hint的字体和色彩如何改变Delphi中TApplication的属性有HintColor及HintPause

　　可以通过设置HintColor改变应用程序中的Hint的颜色通过设置HintPause 改变触发Hint的时间

　　但遗憾的是 Delphi中Hint的字体不可以改变

　　 Delphi里如何计算日期

　　算时间在delphi中是最容易的如下

　　var ss : TDateTime

　　其实Tdatetime是一个双精度的浮点数它的小数点前表示天数

　　如 ss := ss + 表示从ss开始向后天如果ss = 它就表示天当然是从公元年开始计算的！

　　如何用Delphi编ScreenSaver? (null) 屏幕保护程序无非是扩展名换成了 SCR的可执行程序它接受两种命令行参数

　　 s运行命令参数 c配置命令参数Windows通过向程序发 s命令行参数来启动程序

　　要注意的是程序的窗口是无边框和标题窗口大小应与屏幕大小一样还要注意窗口的事件的处理

　　 Delphi中如何改目录的名字

　　调用RenameFile函数如:

　　RenameFile(c:\\wang\\temp c:\\wang\\tmp);

　　 DELPHI显示JPEG图像文件

　　只要uses中加入JPEG就行JPEG单元里是有一个TJPEGImage类可定义一变量如Jpeg 用LoadFromFile调入某个JPEG文件然后用Form的Canvas Draw(x y Jpeg)即可显示

　　 Delphi中对Jpeg格式文件的处理

　　( ) 在 Uses 中加入 JPEG 单元;

　　( ) 定义一个全程变量例如 var AJPEG : TJPEGImage;

　　( ) 在 Form 的 OnCreate 事件中加入 :

　　Canvas Pen Color:=clBlack;

　　Canvas Pen Style:=psSolid;

　　Canvas Brush color:=clBtnFace;

　　Canvas Brush Style:=bsSolid; //此上是设置 Canvas 的一些属性便于以后

　　//Clear Form and Load a new JPEG file;

　　AJpeg:=TJpegImage Create;//动态生成AJpeg;

　　AJpeg LoadFromFile(D:\\Temp jpg) //生成 AJpeg 后调入 JPEG 文件 ;

　　( ) 在 Form 的 OnPain 事件中加入

　　Canvas Rectangle( ); //画一个黑框的? 将图片围住;

　　x:= ; y:= ;

　　Form Canvas Draw(x y AJpeg); //以(x y)为左上角输出 JPEG 文件;

　　//实际上其作用是当图形被破坏是使图形恢复;

　　( ) 在Load或Browse按钮的 OnClick 事件中加入:

　　begin

　　if OpenPictureDialog Execute then

　　begin

　　AJpeg Free; //释放旧AJpeg;

　　AJpeg:=TJpegImage Create; //产生一个新的AJpeg;

　　AJpeg LoadFromFile(OpenPictureDialog Filename); //载入JPEG文件;

　　end;

　　Canvas Rectangle( ); //将Form Clear;

　　x:= ;

　　y:= ;

　　Form Canvas Draw(x y AJpeg); //显示新的AJpeg;

　　end;

　　 DELPHI 启动画面

　　in your * dbr files do it

cha138/Article/program/Delphi/201311/8538