Question

Delphi的8个技巧

Answer 1

　　 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

lishixinzhi/Article/program/Delphi/201311/8538