⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 jq22.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>DELPHI的8个技巧</title>
</head>

<body stylesrc="API扩展Delphi函数.htm" bgcolor="#EEEEFF">

<p align="center"><big><big><big>Delphi的8个技巧</big></big></big></p>

<p>&nbsp;<br>
1.&nbsp;&nbsp;delphi怎样调用外部EXE文件？&nbsp; &nbsp;<br>
&nbsp;<br>
&nbsp;&nbsp;&nbsp;uses&nbsp;WinProcs;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;.&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;begin&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;WinExec(......);&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;end.&nbsp; &nbsp;<br>
&nbsp;&nbsp;和调用Pascal库函数没什么两样。&nbsp; &nbsp;<br>
2.&nbsp;&nbsp;Delphi&nbsp;hint的字体和色彩如何改变&nbsp; &nbsp;<br>
&nbsp;Delphi中TApplication的属性有HintColor及HintPause。&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;可以通过设置HintColor改变应用程序中的Hint的颜色、通过设置HintPause 
&nbsp; &nbsp;<br>
改变触发Hint的时间。&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;但遗憾的是：Delphi中Hint的字体不可以改变。 
&nbsp; &nbsp;<br>
3.&nbsp;&nbsp;Delphi里如何计算日期&nbsp; &nbsp;<br>
&nbsp;<br>
&nbsp;&nbsp;算时间在delphi中是最容易的，如下：&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
var&nbsp;&nbsp;ss&nbsp;:&nbsp;TDateTime&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
其实Tdatetime是一个双精度的浮点数，它的小数点前表示天数： 
&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
如，&nbsp;&nbsp;ss&nbsp;:=&nbsp;ss&nbsp;+&nbsp;20&nbsp;表示从ss开始向后20天，如果&nbsp;ss&nbsp;=&nbsp;234.567 
&nbsp;&nbsp; &nbsp;<br>
它就表示&nbsp;234.567天,当然是从公元0年开始计算的！&nbsp; &nbsp;<br>
4.&nbsp;&nbsp;&nbsp;如何用Delphi编ScreenSaver?&nbsp;(null)&nbsp; &nbsp;<br>
屏幕保护程序无非是扩展名换成了.SCR的可执行程序，它接受两种命令行参数： 
&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-s&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;运行命令参数 
&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;配置命令参数 
&nbsp; &nbsp;<br>
Windows通过向程序发-s命令行参数来启动程序。&nbsp; &nbsp;<br>
要注意的是：程序的窗口是无边框和标题；窗口大小应与屏幕大小一样；还要注意 
&nbsp; &nbsp;<br>
窗口的事件的处理。 &nbsp;<br>
5.&nbsp;&nbsp;&nbsp;Delphi&nbsp;中如何改目录的名字&nbsp; &nbsp;<br>
&nbsp;<br>
&nbsp;调用RenameFile函数，如:&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
&nbsp;&nbsp;RenameFile('c:\wang\temp',&nbsp;'c:\wang\tmp');&nbsp; &nbsp;<br>
6.&nbsp;&nbsp;DELPHI显示JPEG图像文件&nbsp; &nbsp;<br>
&nbsp;<br>
只要&nbsp;uses中加入&nbsp;JPEG就行 &nbsp;<br>
&nbsp;&nbsp;&nbsp;JPEG单元里是有一个TJPEGImage类,可定义一变量如Jpeg,用LoadFromFile调 
&nbsp; &nbsp;<br>
入某个JPEG文件,&nbsp;然后用Form的Canvas.Draw(x,y,Jpeg)即可显示.&nbsp; &nbsp;<br>
7.&nbsp;&nbsp;Delphi中对Jpeg格式文件的处理...&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;(1).在&nbsp;Uses&nbsp;中加入&nbsp;JPEG&nbsp;单元;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;(2).定义一个全程变量,例如&nbsp;var&nbsp;&nbsp;AJPEG&nbsp;:&nbsp;TJPEGImage; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;(3).在&nbsp;Form&nbsp;的&nbsp;OnCreate&nbsp;事件中加入&nbsp;: 
&nbsp;&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Pen.Color:=clBlack;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Pen.Style:=psSolid;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Brush.color:=clBtnFace;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Brush.Style:=bsSolid;&nbsp;&nbsp;//此上是设置&nbsp;Canvas&nbsp;的一些属性,便于以后 
&nbsp;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//Clear&nbsp;Form&nbsp;and&nbsp;Load&nbsp;a&nbsp;new&nbsp;JPEG&nbsp;file; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;AJpeg:=TJpegImage.Create;//动态生成AJpeg;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;AJpeg.LoadFromFile('D:\Temp.jpg')&nbsp;&nbsp;//生成&nbsp;AJpeg&nbsp;后,调入&nbsp;JPEG&nbsp;文件&nbsp;; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
&nbsp;&nbsp;(4).在&nbsp;Form&nbsp;的&nbsp;OnPain&nbsp;事件中加入&nbsp;&nbsp; &nbsp;<br>
&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Canvas.Rectangle(2,2,560,430);&nbsp;//画一个黑框的矩形将图片围住; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x:=10;&nbsp;&nbsp;y:=10;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Form1.Canvas.Draw(x,y,AJpeg);&nbsp;//以(x,y)为左上角输出&nbsp;JPEG&nbsp;文件; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//实际上其作用是当图形被破坏是使图形恢复;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;<br>
&nbsp; &nbsp;<br>
&nbsp;&nbsp;(5).在'Load'或'Browse'按钮的&nbsp;OnClick&nbsp;事件中加入: 
&nbsp;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;begin&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;if&nbsp;OpenPictureDialog1.Execute&nbsp;then&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AJpeg.Free;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//释放旧AJpeg; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AJpeg:=TJpegImage.Create;&nbsp;&nbsp;&nbsp;//产生一个新的AJpeg; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AJpeg.LoadFromFile(OpenPictureDialog1.Filename);&nbsp;//载入JPEG文件; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;end;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;Canvas.Rectangle(2,2,560,430);&nbsp;&nbsp;//将Form&nbsp;Clear; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;x:=10;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;y:=10;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;Form1.Canvas.Draw(x,y,AJpeg);&nbsp;&nbsp;&nbsp;//显示新的AJpeg; 
&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;end;&nbsp;&nbsp; &nbsp;<br>
8.&nbsp;&nbsp;DELPHI3启动画面&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp; &nbsp;<br>
in&nbsp;your&nbsp;*.dbr&nbsp;files&nbsp;do&nbsp;it&nbsp;&nbsp; &nbsp;<br>
begin&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;{Create&nbsp;a&nbsp;splash&nbsp;form}&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;splash:=Tsplash.Create(self);&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;splash.Show;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;splash.update&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Application.Initialize;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Application.CreateForm(..)&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;.&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;.&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;.&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;splash.close;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;splash.free;&nbsp;&nbsp; &nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;Application.Run&nbsp;&nbsp; &nbsp;<br>
end;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -