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

   本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件

    首先在程序的uses段中添加MMSYSTEM 然后在窗体的初始化过程中添加以下代码

    procedure TForm FormCreate(Sender: TObject)    begin    SndPlaySound( c:\RECYCLE WAV SND_ASYNC or SND_LOOP)    end

    这样 在程序运行的初期 程序就会通过SndPlaySound函数循环不断地播放声音文件c:\RECYCLE WAV

    程序代码如下

    unit Unit     interface    uses    Windows Messages SysUtils Variants Classes Graphics Controls Forms     Dialogs MMSYSTEM    type    TForm = class(TForm)    procedure FormCreate(Sender: TObject)    private    { Private declarations }    public    { Public declarations }    end    var    Form : TForm     implementation    {$R * dfm}    procedure TForm FormCreate(Sender: TObject)    begin    SndPlaySound( c:\RECYCLE WAV SND_ASYNC or SND_LOOP)    end    end

    保存文件 然后按F 键运行程序 在程序运行过程中 程序会不间断地播放声音文件

lishixinzhi/Article/program/Delphi/201311/24722

1、在窗体上放一个adoquery(adoquery1),datasource(默认为datasource1)

2、在窗体上放一个adoconnection1，也可以不放；

3、设置adoconnection1的connetionstring，提供程序选择“Microsoft OLE DB Provider for Oralce"或者 “Oracle Provider for OLE DB"，下一步，在服务器名称中输入你的oracle SID（需事选配置SID）或者直接输入SID配置信息。用户名称都是TEST.

3、设置Adoquery1的connetion属性为adoconnection1，如果没用adoconnetion，也可以设置adoquery1的connetionstring属性（具体 *** 作和adoconnection1一样)，设置Datasource1的DataSet属性为Adoquery1，设置dbgrid(不是GBDRID)的datasource属性为datasource1；

4、双击button1，写代码

Adoquery1.Close

ADOQuery1.SQL.Text:='select * from BIAO where A='+quotedstr(Trim(Edit1.text))

Adoquery1.Open

---