Delphi 编程技巧常见实例问答

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:=clBlackCanvas Pen Style:=psSolidCanvas Brush color:=clBtnFaceCanvas Brush Style:=bsSolid//此上是设置 Canvas 的一些属性 便于以后 //Clear Form and Load a new JPEG fileAjpeg:=TJpegImage Create//动态生成AjpegAjpeg 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//释放旧AjpegAjpeg:=TJpegImage Create//产生一个新的AjpegAjpeg LoadFromFile(OpenPictureDialog Filename)//载入JPEG文件endCanvas Rectangle( )//将Form Clearx:= y:= Form Canvas Draw(x y Ajpeg)//显示新的Ajpegend

DELPHI 启动画面

lishixinzhi/Article/program/Delphi/201311/25017

1、打开源码编辑器。从本地电脑中打开源码编辑器，进入主界面2、选中角色。在角色区域选中要进行询问的角色。3、当开始被点击积木块。从事件盒子中点击“当开始被点击”积木块。4、询问积木块。从外观盒子中点击“询问你的名字并等待”积木块。5、修改询问内容。在积木脚本区域，找到询问的方框，修改询问的内容。6、运行程序。在舞台区域点击开始即可运行脚本，查看询问效果。

编程猫是中国本土的编程教育软件，是深圳点猫科技有限公司自主研发的一款图形化编程工具平台，面向7-16岁青少儿，专注研发适合中国儿童的编程教学体系，以“工具+内容+服务”产品形态培养孩子逻辑思维、计算思维和创造性思维，提升综合学习能力。

旗下明星课程类型包括小火箭编程课、探月少儿编程课、深空编程个性化班课。

---