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流操作技巧

1、文件流 TStreamMemoery 读写内存   TMemoryStream的继承关系如下  TObject  |  TStream  |  TCustomMemoryStrea...
  • a137268431
  • a137268431
  • 2015年08月19日 18:50
  • 868

Delphi使用技巧四则

一、定制Speedbar   在Delphi的可视化设计界面中,使用最频繁的地方要数位于屏幕左上角的加速按钮栏(Speedbar)了。在实践过程中,笔者无意中发现了Speedbar的定制方法,这...
  • my98800
  • my98800
  • 2016年08月08日 20:13
  • 182

使用谷歌内核TChromium入门

Delphi 10.1 使用谷歌内核TChromium入门 CEF4Delphi的下载和安装 Demo运行调试 Delphi 101 使用谷歌内核TChromium入门 描述 CEF4Delphi的下...
  • wnjnfn
  • wnjnfn
  • 2017年03月27日 16:31
  • 2073

8个CSS函数的小技巧

转载自:8个CSS函数的小技巧 CSS现在已经能实现比网站开发者预料到的更多的功能,并且随着时间的推移,样式表语言越来越强大,能实现许多原先需要依靠JavaScript才能实现的功能。在这篇...
  • qq_15096707
  • qq_15096707
  • 2016年09月02日 09:43
  • 420

Delphi异常处理与调试

Delphi异常处理与调试   3.1 Delphi异常处理 3.1.1 异常处理的意义 所谓异常,可以理解为一种特殊的事件。当这种特殊的事件发生时,程序正常的执行流程将被打断。异常处...
  • sforiz
  • sforiz
  • 2013年08月27日 10:25
  • 5058

使用SVN的8个技巧

1. 使用SVN钩子强制提交注释 一个好的SVN实践是文件提交时要求必须填写注释,并注明相关修改信息,如bug号、任务描述等,内容按照约定编写。这样在后期的代码审核和回溯过程中会非常方便,可以更快的...
  • u012486840
  • u012486840
  • 2016年09月24日 10:38
  • 1728

Linux终端用户的8个技巧

原文链接: Chris Hoffman 翻译: 极客范 - minejo 译文链接: http://www.geekfan.net/7112/ 使用Linux终端不...
  • kira_123
  • kira_123
  • 2014年05月11日 18:30
  • 315

iOS 8个实用小技巧

在开发过程中我们总会遇到各种各样的小问题,有些小问题并不是十分容易解决,这里主要讲一些你可能不知道的(当然,也有可能你都知道,大神就不必往下看了) 1、控件的局部圆角问题 ...
  • CXLiao
  • CXLiao
  • 2016年08月10日 13:07
  • 177

8个 jQuery技巧攻略

本文来自:http://designzum.com/2014/02/28/8-useful-jquery-tips-and-tricks-for-programmers/ 本文我们将为jQuery用...
  • supingemail
  • supingemail
  • 2014年03月03日 17:46
  • 474

8个Linux技巧

本文由 极客范 - minejo 翻译自 Chris Hoffman。欢迎加入极客翻译小组,同我们一道翻译与分享。转载请参见文章末尾处的要求。 使用Linux终端不仅仅是只输入命令。学习这些...
  • zwkm6936367
  • zwkm6936367
  • 2014年03月09日 15:36
  • 312
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi的8个技巧
举报原因:
原因补充:

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