Delphi 编程技巧常见实例问答

Posted 2023-03-09

参考技术A

　　 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 emp c:wang mp );

　　 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 启动画面

lishixinzhi/Article/program/Delphi/201311/25017