Delphi IntToHex函数用法举例

Delphi 使用tfilestream方式复制文件，你可参考本源码，学习一下OpenDialog、Tfilestream.Create、showmessage、CopyFile的用法，本实例复制文件，是通过读取文件流，保存文件流的方式复制，并不是使用命令复制文件。

Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。 　　self.ClientHeight:=200; 　　self.ClientWidth:=200; 　　r:=self.ClientWidth/2; 　　Sect:=20; 　　for i:=0 to Sect-1 do 　　begin 　　 x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2); 　　 y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2); 　　end;

Delphi 使播放的Flash随窗口大小改变，也就是让Flash播放的窗口内容随着父窗口的大小而自动适应，把窗口拉大时，Flash画面也会跟着变大，让内容适应窗口大小的变化。

如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下: 　　procedure TForm1.WMPowerBroadcast(var message: TMessage); 　　begin 　　 message.Result := BROADCAST_QUERY_DENY; 　　end;

Delphi渐变圆形的实现方法，RGB色环空心绘制演示源码： 　　oBmp := TBitmap.Create; //为了代码整齐就不写try了 　　oBmp.PixelFormat := ABitmap.PixelFormat; 　　oBmp.Width := ABitmap.Width; 　　oBmp.Height := ABitmap.Height; 　　BitBlt(oBmp.Canvas.Handle, 0, 0, oBmp.Width, oBmp.Height, ABitmap.Canvas.Handle, 80, 80, SRCCOPY); //要拷贝的位图 　　oRgn := CreateEllipticRgn(0, 0, 100, 100); //创建圆形区域 　　SelectClipRgn(ABitmap.Canvas.Handle, oRgn); //选择剪切区域 　　ABitmap.Canvas.Draw(0, 0, oBmp); //位图位于区域内的部分加载

Delphi 取消窗体标题栏的关闭按钮，也就是单击窗口右上角的关闭按钮，窗体并不会关闭，让关闭按钮失去了作用，用户可通过单击窗口中的自定义按钮来关闭窗口，这样就相当于取消了窗体标题栏中的关闭按钮。

Delphi 定制自己的幽灵程序，这个程序在Windows托盘处显示图标，而且退出后在进程中仍会运行，像幽灵一样，托盘处可右键弹出菜单，本程序主要是图标和菜单的一些操作，属于UI界面的范畴吧，这是我个人认为的，部分代码摘录： 　　 NormalIcon,DisabledIcon:TIcon; 　　 //正常和失效两种情况下的图标 　　 Status:Boolean; 　　 //标志"允许使用"还是"禁止使用" 　　 procedure InstallIcon; 　　 procedure ChangeIcon(s:Boolean); 　　 procedure UnInstallIcon; 　　 procedure IconOnClick(var message:TMessage); message MI_ICONEVENT; 　　 //捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明

一个基础的Delphi 文件目录操作示例，这里是拷贝指定的文件夹目录，一是了解复制文件的原理，二是熟悉Delphi中的目录操作技巧。

Delphi 实现窗体的全屏显示效果，单击按钮后即可全屏。

delphi 获取网页源码