当前页面位置: » 丰搜网 » 文档中心 » 详细内容
delphi 编程技巧常见实例问答
1. delphi怎样调用外部exe文件？
uses winprocs;
.
begin
winexec(……);
.
end.
和调用pascal库函数没什么两样。
2. delphi hint的字体和色彩如何改变
delphi中tapplication的属性有hintcolor及hintpause。可以通过设置hintcolor改变应用程序中的hint的颜色、通过设置hintpause改变触发hint的时间。但遗憾的是：delphi中hint的字体不可以改变。
3. delphi里如何计算日期
算时间在delphi中是最容易的，如下：
var ss : tdatetime
其实tdatetime是一个双精度的浮点数，它的小数点前表示天数：如， ss := ss + 20 表示从ss开始向后20天，如果 ss = 234.567 它就表示 234.567天,当然是从公元0年开始计算的！
4. 如何用delphi编screensaver? (null)
屏幕保护程序无非是扩展名换成了.scr的可执行程序，它接受两种命令行参数：
-s 运行命令参数
-c 配置命令参数
windows通过向程序发-s命令行参数来启动程序。要注意的是：程序的窗口是无边框和标题；窗口大小应与屏幕大小一样；还要注意窗口的事件的处理。
5. delphi 中如何改目录的名字
调用renamefile函数，如:
renamefile(’c:wang emp’, ’c:wang mp’);
6. delphi显示jpeg图像文件
只要 uses中加入 jpeg就行，jpeg单元里是有一个tjpegimage类,可定义一变量如jpeg,用loadfromfile调入某个jpeg文件, 然后用form的canvas.draw(x,y,jpeg)即可显示.
7. delphi中对jpeg格式文件的处理…
(1).在 uses 中加入 jpeg 单元;
(2).定义一个全程变量,例如 var ajpeg : tjpegimage;
(3).在 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 文件
(4).在 form 的 onpain 事件中加入
canvas.rectangle(2,2,560,430); //画一个黑框的矩形将图片围住;
x:=10; y:=10;
form1.canvas.draw(x,y,ajpeg); //以(x,y)为左上角输出 jpeg 文件;
//实际上其作用是当图形被破坏是使图形恢复;
(5).在’load’或’browse’按钮的 onclick 事件中加入:
begin
if openpicturedialog1.execute then
begin
ajpeg.free; //释放旧ajpeg;
ajpeg:=tjpegimage.create; //产生一个新的ajpeg;
ajpeg.loadfromfile(openpicturedialog1.filename); //载入jpeg文件;
end;
canvas.rectangle(2,2,560,430); //将form clear;
x:=10;
y:=10;
form1.canvas.draw(x,y,ajpeg); //显示新的ajpeg;
end;
8. delphi3启动画面
in your *.dbr files do it
begin
{create a splash form}
splash:=tsplash.create(self);
splash.show;
splash.update
application.initialize;
application.createform(..)
.
.
.
splash.close;
splash.free;
application.run
end;
