Delphi的8个技巧

转载 2004年09月10日 14:20:00

Delphi的8个技巧
--------------------------------------------------------------------------------
张涛  2003-6-28  来源:摆渡人工作室


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/temp', 'c:/wang/tmp');
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;

Delphi可视化精讲视频教程

-
  • 1970年01月01日 08:00

PHP和MySQL开发的8个技巧.

  • 2010年06月18日 21:35
  • 21KB
  • 下载

delphi小技巧总汇

◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt...
  • hlms
  • hlms
  • 2005-04-20 12:27:00
  • 1380

Delphi开发的一些技巧

[Delphi]Delphi开发的一些技巧 一、提高查询效率先进行准备查询操作:CustomerQuery.Close;if not (CustomerQuery.Prepared) then -->...
  • simonhehe
  • simonhehe
  • 2007-07-19 14:20:00
  • 1889

delphi Bresenham算法生成坐标点,8个方向

delphi Bresenham算法生成坐标点
  • zflllll
  • zflllll
  • 2014-12-10 10:44:52
  • 137

Delphi控件拖动及改变大小

  • 2009年08月28日 19:44
  • 180KB
  • 下载

Delphi的一些技巧

 版权声明请尊重原创作品。转载请保持文章完整性,并以超链接形式注明原始作者“tingsking18”和主站点地址,方便其他朋友提问和指正。 一、提高查询效率先进行准备查询操作:CustomerQuer...
  • tingsking18
  • tingsking18
  • 2006-02-26 14:39:00
  • 1632

delphi技巧总结收集

Delphi常用总结 (2008-03-30 23:45:17)转载标签: 杂谈分类: Delphi程序大全 1.定义leftstr,midstr时需uses  strutils.  2.打开记事本需...
  • yingsuixindong
  • yingsuixindong
  • 2011-06-21 08:42:00
  • 4715

102_《Delphi5编程实例与技巧》

Delphi是由Inprise公司推出的面向对象的可视化软件开发工具。Delphi 5是Delphi的最新版本。 本书共分三部分、16章,主要介绍Delphi 5集成开发环境,对象Pascal语言、组...
  • shuaihj
  • shuaihj
  • 2010-12-18 15:36:00
  • 1967

delphi 开发经验技巧宝典源码

  • 2010年08月12日 16:47
  • 19.07MB
  • 下载
收藏助手
不良信息举报
您举报文章:Delphi的8个技巧
举报原因:
原因补充:

(最多只允许输入30个字)